MICROCOPY  RESOLUTION  TEST  CHART 

NATiONAl  iuNEAu  Of  STAN0*ND$-I»63-A 


AD  A1  24  v  89 


0 


AIR  UNIVERSITY  (ATC) 


AIR  FORCE  INSTITUTE  OF  TECHNOLOGY 


Wright-Patterson  Air  Force  Base,  Ohio 


|  Thi*  docunioaJ  ha* 


6,3  °8- 


AFIT/GCS/EE/82D-24 


I 

TACTUAL  AIR  CONTROL  SYSTEM 
;  SIMULATION  PROGRAM 

THESIS 


AFIT/GCS/EE/82D-24  Donald  P.  McCanless 

Captain  USA* 


Approved  for  public  release »  distribution  unlimited 


AFIT/GCS/EE/82D-24 


TACTICAL  AIH  CONTROL  SYSTEM 
SIMULATION  PROGRAM 

THESIS 


Presented  to  the  Faculty  of  the  School  of  Engineering 
of  the  Air  Force  Institute  of  Technology 
Air  University 

in  Partial  Fulfillment  of  the 
Requirements  for  the  Degree  of 
Master  of  Science 


I 


Approved  for  public  release;  distribution  unlimited. 


I  would  like  to  acknowledge  the  assistance  provided  by  my  thesis 
advisor,  Lieutenant  Colonel  Harold  Carter,  Without  his  patience  and 
guidance  this  effort  would  not  have  been  completed.  I  would  also  like 
to  thank  my  readers,  Major  Walter  Seward  and  Dr.  David  Barr,  for  finding 
the  time  in  their  busy  schedules  to  read  this  document  and  provide 
suggestions  for  improvement.  Lastly,  I  would  like  to  thank  Professor 
Dan  Reynolds  for  all  of  the  enthusiastic  support  lie  provided. 


ii 


Contents 


Page 


Acknowledgements  ................  .  .  ii 

List  of  Figures .  iv 

Abstract  .  v 


I.  Introduction 


1 


II.  The  Pre-Processor.  .  .  .  .  , 

Introduction.  .  . 

oLAMPP  Capabilities  .  , 

Nodes  .  .  . 

Terminate  Nodes  .  .  . 
Message  Creation.  .  . 

Routing  . 

Feasibility  Study  .  .  .  . 
Selected  Capabilities 
Design  Stages  .... 
Program  Evaluation.  . 
Completed  Design.  .  .  .  . 


2 

2 

2 

o 

4 

3 

3 

3 

3 

3 

3 

4 

5 


III.  Program  Installation  ....  .  .....  9 

Introduction . . . .  .  9 

Array  Size  Selection.  . . 9 

Compilation  .  9 

Enlarging  SLAM.  ......  .  10 

IV.  SLAMPP  Validation .  11 

Introduction.  . . 11 

Test  Case . 11 

Test  Case  Validation.  ............  .  11 

Error  Detection  .............  .  12 


V.  Summary 


13 


Bibliography 


14 


Appendix  A:  Program  Listing  ........  .  15 

Appendix  B:  Operating  Instructions .  51 

Appendix  C:  Input  Errors.  . . 62 

Appendix  D:  Interpreting  the  SLAM  Output.  . .  66 

Appendix  E:  Test  and  Evaluation.  .......  .  70 


iii 


List 

Figure 

1  Program  Flow.  .  . 

2  SLAM  Main  Routine 


AFIT/GCS/EE/82D-24 


Abstract 


-The  Tactical  Air  Force's  Interoperability  Group  wants  to  be  able  to 
simulate  communication  networks.  The  simulation  language  for 
alternative  modeling  (SLAM)  was  proposed  as  the  basis  for  the 
simulation.  However,  this  language  requires  too  much  effort  to  make  any 
changes  to  the  network  to  be  simulated.  A  Pre-Processor  was  written  in 
FORTRAN  77  which  allows  the  user  to  describe  the  network  in  a  convenient 
manner,  and  produces  the  necessary  SLAM  source  code  to  perform  the 
simulation. 
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TACTICAL  AIR  CONTROL  SYSTEM 
SIMULATION  PROGRAM 


I,  Introduction 


The  Tactical  Air  Force  Interoperability  Group  (TAFIG)  located  at 
Langley  Air  Force  Base,  Virginia,  wishes  to  be  able  to  simulate  the  flow 
of  message  traffic  through  the  Tactical  Air  Control  System.  This 
simulation  will  allow  TAFIG  to  determine  the  number  of  messages  going 
across  particular  communication  channels  and  statistics  about  the  queues 
which  may  form  at  nodes  (Morrison,  1981).  Current  models,  concluded  one 
study,  are  too  broad  and  it  was  recommended  that  a  specific  set  of 
problems  be  defined  and  selected  model  development  be  continued 
(Bennett,  1970:  ix). 

A  simulation  language  for  alternative  modeling  (SLAM)  was  selected 
as  the  basis  for  the  simulation.  However,  every  change  to  the 
communication  network  being  modeled  would  require  rewriting  the  SLAM 
source  code.  This  constraint  was  not  seen  as  being  "user-friendly" 
enough  for  a  production  system. 

In  order  to  make  the  ease  of  input  acceptable,  a  SLAM  Pre-Processor 
was  proposed.  This  Pre-Processor  would  take,  as  inputs,  a  description  of 
the  network  to  be  simulated  along  with  descriptions  of  the  message 
traffic  and  produce,  as  output,  the  necessary  SLAM  source  code  to  model 
the  network.  This  SLAM  source  code  would,  in  turn,  be  input  into  the 
SLAM  program  for  the  actual  simulation. 
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II.  The  Pre-Processor 


Introduction 

In  order  to  determine  the  feasability  of  such  a  system  as  the  SLAM 
Pre-Processor  (SLAMPP),  a  subset  of  the  desired  capabilities  was 
selected  and  implemented.  Following  this  evaluation,  the  system  was 
expanded  to  include  all  of  the  desired  capabilities. 

SLAMPP  Capabilities 

The  SLAMPP  was  designed  to  allow  the  user  to  simulate  communication 
networks.  To  the  SLAMPP,  a  network  consists  of  message  creations  and 
queues  (processing  locations),  along  with  the  path  a  message  will  follow 
through  the  various  queues. 

In  order  to  describe  a  communication  network,  SLAMPP  must  allow  the 
user  to  describe  the  network  to  be  simulated.  The  items  which  may  be 
described  are  listed  below. 

Nodes.  A  node,  or  queue,  is  a  location  at  which  a  message  will 
receive  some  type  of  handling.  The  maximum  number  of  messages  which  nay 
be  waiting  at  a  node  at  any  given  time  can  be  specified.  The  name  of  an 
alternate  node  may  (optionally)  be  supplied  to  which  a  message  will 
"balk"  should  the  node’s  capacity  be  exceeded,  or  "blocking"  may  be 
specified  which  causes  messages  to  "back  up"  in  the  system  when  capacity 
is  exceeded.  If  neither  balking  nor  blocking  is  specified,  the  message 
will  simply  be  lost  (without  any  indication  to  the  user)  if  capacity  has 
been  reached. 

Two  time  durations  are  associated  with  a  node.  The  first  allows 
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the  user  to  specify  how  long  it  takes  to  process  a  nessage  at  this  node, 
while  the  second  specifies  how  long  transmission  to  the  next  node  will 
take.  If  either  of  these  two  times  are  not  specified,  a  default  time  of 
zero  will  be  assumed. 

Terminate  Nodes.  Terminate  nodes  are  locations  at  which  a  message 
leaves  the  network. 

Message  Creation.  The  rate  at  which  a  message  of  a  particular  type 
is  created  can  be  specified.  Additionally,  the  starting  time  for  this 
message  and  the  number  of  messages  to  be  created  are  also  specified. 

Routing .  Each  message  may  be  routed  through  the  nodes  following 
paths  which  the  user  supplies.  Also,  an  alternate  balk  route  can  be 
supplied  should  a  message  be  redirected  to  a  balk  node. 

Feasibility  Study 

In  order  to  determine  the  feasibility  of  the  SLAMPP,  a  subset  of 
the  capabilities  vras  selected  and  implemented. 

Selected  Capabilities.  Only  the  "bare"  essential  capabilities  were 
selected  for  the  feasibility  study.  Additionally,  these  capabilities 
were  (in  some  cases)  simplified. 

Node  definition  was  included}  however,  balk  nodes  were  not 
implemented.  Terminate  nodes  were  included  exactly  as  they  would  be 
included  in  the  final  version,  as  was  message  creation.  Path  definition 
did  not  support  balk  paths,  nor  blocking.  Message  processing  times  and 
transmit  times  between  nodes  were  ignored. 

Design  Stages.  Following  the  selection  of  the ' capabilities  to  be 
studied,  the  feasibility  fell  into  several  stages.  First,  a  logical  and 
easy-to-follow  method  was  developed  to  input  the  network  description  to 
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the  Pre-Processor.  These  input  formats,  with  some  modifications  and 
additions,  remained  in  the  final  version. 

Next,  a  small  network  was  designed  and,  using  the  input  formats 
mentioned  previously,  a  SLAMPP  description  of  this  network  was  coded. 

A  great  deal  of  information  was  necessary  to  build  even  this  simple 
implementation.  Storing  and  manipulating  this  data  quickly  became 
confusing.  In  order  to  try  and  clarify  this  problem,  the  variables  and 
data  structures  to  store  this  information  was  designed.  Although  some 
modifications  occurred  during  the  course  of  the  project,  the  basic 
design  remained  the  same. 

Now  that  the  exact  capabilities  for  the  feasibility  study  were 
known,  and  the  inputs  and  data  structures  were  designed,  flowcharts  were 
produced  which  showed  the  steps  necessary  to  implement  the  project.  The 
flowcharts  began  at  a  very  "high-level"  and  were  iteratively  refined 
until  the  detail  necessary  to  design  the  program  was  obtained. 

Using  these  flowcharts,  the  FORTRAN  source  code  was  written. 
Although  some  logic  errors  did  exist,  they  proved  to  be  relatively  minor 
and  easy  to  correct. 

Program  Evaluation.  After  the  SLAMPP  was  written  and  debugged,  the 
Pre-Processor  output  was  examined  for  correctness.  This  examination 
included  a  visual  inspection  of  the  output  file  to  verify  the  SLAM  code 
produced  by  the  Pre-Processor  was  as  expected,  and  an  execution  of  this 
code  by  the  SLAM  program  to  ensure  the  code  would  indeed  be  accepted  by 
the  SLAM  system. 

This  examination  showed  that  the  SLAMPP  output  was  valid  and 
acceptable  to  the  SLAM  program.  Additionally,  it  showed  that  the  basic 
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concept  behind  the  Pre-Processor  was  viable  and  continued  development 
was  warranted. 


Completed  Design 

Following  the  feasibility  study,  the  remaining  capabilities  were 
incorporated  into  the  final  SLAMPP,  Due  to  modularity  of  design  these 
additions  were  easily  installed  into  the  framework  developed  earlier 
(see  Appendix  A  for  a  listing  of  the  SLAMPP  program). 

The  basic  flow  of  the  program  is  shown  in  Figure  1 ,  while  Appendix 
B  contains  detailed  operating  instructions.  First,  all  of  the  nodes  are 
defined,  followed  by  all  of  the  terminate  nodes,  After  these 
definitions  comes  the  start  of  the  first  message.  Each  message  consists 
of  one  message  definition,  followed  by  an  optional  process  and  transmit 
tine  definition,  followed  by  the  name  of  the  next  node  along  the  path. 
Successive  steps  in  the  path  are  indicated  by  repetition  of  process  and 
transmit  tines  and  node  name.  Additional  messages  are  input  by  placing 
another  message  definition  into  the  data  deck  and  repeating  the  above 
steps. 

After  all  messages  have  been  described,  information  about  balk 
routes  (if  any  are  present)  is  input.  This  process  is  similar  to 
nessage  definition,  however,  the  message  definition  card  is  replaced  by 
a  balk  route  definition  card.  The  process  and  transmit  time  and  path 
definitions  are  the  same  as  above.  One  balk  definition  is  included  for 
each  message  that  can  possibly  balk. 

The  validity  of  the  inputs  is  verified  prior  to  building  the  SLAM 
source  code  (a  summary  of  the  input  errors  which  can  be  detected  is 
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contained  in  Appendix  C).  If  all  inputs  are  valid,  the  SLAM  source  is 


constructed. 

The  SLAM  source  built  by  the  Pre-Processor  now  serves  as  input  to 
the  SLAM  program  for  the  actual  simulation.  The  outputs  produced  by  the 
SLAM  program  are  described  in  Appendix  D. 
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III.  Program  Installation 


Introduction 

Prior  to  execution  of  the  SLAM  Pre-Processor,  the  program  must  be 
compiled.  To  minimize  the  amount  of  computer  nenory  required,  certain 
changes  can  be  made  to  the  program  to  decrease  array  sizes. 

Array  Size  Selection 

Due  to  the  way  SLAMPP  is  written,  the  user  has  the  flexibility  to 
vary  the  maximum  number  of  messages  (NOMSG)  the  Pre-Processor  can 
handle,  the  maximum  number  of  terminate  nodes  (NOTRM),  and  the  maximum 
number  of  nodes  (NONOD). 

SLAMPP  is  written  entirely  in  FORTRAN  77.  To  allow  for  variable 
dimension  sizes  for  arrays,  each  subroutine  and  function  contains  a 
PARAMETER  statement  (Katzan,  1978?  77)  which  defines  each  of  the  three 
variables  sizes.  Prior  to  compilation,  the  user  should  decide  on 
appropriate  values  for  these  parameters  and  change  each  PARAMETER 
statement  accordingly. 

Since  each  of  the  three  parameters  are  used  to  determine  array 
sizes,  the  larger  the  parameter  sizes,  the  larger  the  amount  of  computer 
memory  required  to  execute  SLAMPP.  Therefore,  care  should  be  used  to 
select  values  which  are  both  realistic  and  conservative. 

Compilation 

As  mentioned  previously,  SLAMPP  is  written  in  FORTRAN  77.  After 
any  changes  to  the  PARAMETER  statements  are  made,  the  Pre-Processor  is 
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ready  to  be  compiled  and  saved  using  whatever  installation  dependent 
procedures  are  required. 


Enlarging  SLAM 

Figure  2  shows  the  main  driver  for  the  SLAM  program.  Depending 
upon  the  size  of  the  SLAMPP  network  to  be  simulated,  certain  changes  may 
be  necessary  to  the  SLAI1  main  routine  to  accommodate  the  network. 
Although  these  changes  are  part  of  the  SLAM  program  itself,  and  not  part 
of  the  Pre-Processor,  they  are  listed  here  for  the  user’s  convenience. 

Three  items  must  be  changed*,  the  dimension  sizes  of  NSET  and  QSET, 
and  the  value  for  UNSET.  Each  of  these  three  values  must  be  the  same  to 
ensure  a  successful  SLAM  run.  Typically,  the  default  value  is  5»000, 


PROGRAM  MAINRT  (INPUT,  OUTPUT,  TAPI  7,  TAPE5=INPUT, 
&  T APF 6  =  0UTPUT  ) 

C 

C  THIS  ROUTINE  IS  INCLUDED  SO  THAT  THE  ARRAY  SIZE 

C  FOR  NNSET/OSET  CAN  RE  CHANGED  TO  ACCOMODATE 

C  LARGE  SIMULATION  RUNS. 

C 

DIMENSION  NSET (7000) 

COMMON  / SC0M1 /  ATRIB(IOO),  DD(100),  DDL(IOO), 

&  DTNOW,  II,  ME  A ,  MSTOP,  NCLNR ,  NCRDR ,  NPRNT , 

&  TNEXT,  TNOW,  XX(100) 

COMMON  QSET (7000) 

EQUIVALENCE  (NSET(I),  QSET(l)) 

NNSET  =  7000 
NCRDR  =  5 
NPRNT  =  6 
NT  APE  =  7 
CALL  SLAM 
STOP 
END 


Figure  2.  SLAM  Main  Driver 
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IV.  SLAMPP  Validation 


Introduction 

In  order  to  check  the  validity  of  the  SLAMPP  (that  is,  verify  that 
SLAMPP  produces  a  SLAM  network  which  represents  the  intention  of  the 
inputs),  a  test  case  was  designed  and  evaluated.  In  addition  to  this 
large  test  case,  over  30  smaller  networks  were  input  to  the  Pre- 
Processor  during  development  to  assure  a  valid  Pre-Processor  was  in  fact 
produced.  Also,  tests  were  performed  to  ensure  that  invalid  inputs 
would  be  detected. 

Test  Case 

The  test  case  used  for  validation  was  designed  to  exercise  every 
capability  of  SLAMPP.  Specifically,  nodes  of  all  three  types  were  used 
(some  with  balking,  some  with  blocking,  and  some  with  neither).  Nine 
different  messages  were  included  to  demonstrate  each  of  the  nine  valid 
distribution  types  (see  Appendix  B).  Process  and  transit  times  included 
at  least  one  example  of  each  of  the  nine  distributions  also,  plus 
examples  of  the  sero  default  time  which  will  be  generated  if  not 
specified  otherwise.  Since  balking  was  specified  on  two  nodes,  balk 
route  descriptions  were  required  in  xddition  to  regular  route 
descriptions.  See  Appendix  E  for  a  listing  of  the  SLAMPP  inputs  and  the 
associated  SLAM  source  which  was  generated. 

Test  Case  Validation 

After  the  test  network  was  designed,  the  SLAMPP  description  of  the 
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network  was  written  and  input  into  the  Pre-Processor.  The  SLAM  source 
output  was  then  carefully  examined  to  ensure  that  a  valid  network 
representation  had  been  produced.  Also,  the  Pre-Processor  output  was 
executed  through  the  SLAM  program  to  verify  it  would  execute 
successfully.  Both  the  examination  and  the  execution  showed  the  SLAMPP 
output  to  contain  no  known  discrepancies. 

Error  Detection 

Given  valid  inputs,  SLAMPP  will  produce  a  corresponding  SLAM 
network;  however,  it  is  equally  important  that  the  Pre-Processor 
recognize  invalid  inputs  to  prevent  the  creation  of  a  bad  network. 

Many  types  of  input  validations  are  p^r-formed  by  the  Pre-Processor. 
The  errors  which  may  be  detected  are  summarized  in  Appendix  C,  To  be 
certain  that  each  input  validation  point  worked  correctly,  test  cases 
were  devised  which  intentionally  (and  unintentionally)  exercised  each 
point.  Since  the  validity  of  any  SLAII  network  created  using  invalid 
input  data  is  questionable,  no  SLAM  source  is  generated  if  any  errors 
are  detected. 


12 


V .  Summary 

The  Tactical  Air  Forces  Interoperability  Group  needs  to  be  able  to 
simulate  the  flow  of  message  traffic  through  the  Tactical  Air  Control 
System.  The  simulation  language  for  alternative  modeling  (SLAIi)  was 
used  as  the  basis  for  the  simulation,  A  Pre-Processor  was  constructed 
to  permit  a  user-friendly  operation. 

The  Pre-Processor  was  written  in  FORTRAN  77,  and  produced  the 
source  code  to  be  used  by  the  SLAM  program.  The  Pre-Processor  output 
was  validated  and  found  to  be  correct. 
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Appendix  Ai  Program  Listing 


Following  is  the  FORTRAN  7?  listing  of  the  source  code  for  the  SLAM 
Pre- Processor. 
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PROCRAM  SLAMPP 


C 

C  THIS  PROCRAM  ACCEPTS  (FROM  FILE  10)  INPUT  CARDS  DESCRIBING  THE 

C  NETWORK  TO  BE  SIMULATED,  CHECKS  THEIR  VALIDITY,  AND  (IF  NO 

C  ERRORS  ARE  DETECTED)  PRODUCES  THE  CORRESPONDING  SLAM  SOURCE 

C  CODE  ON  FILE  20. 

C 

C  SUBROUTINES  CALLED: 

C  BLDOUT — BU I LD  THE  SLAM  OUTPUT 

C  CHKBLK — VALI DATE  BALK  ROUTES 

CHKUSD — ENSURE  ALL  NODES  ARE  USED 
BALK--PROCESS  BALK  CARDS 
MESS — PROCESS  MESS  CARDS 
NODE  —  PROCES  S  NODE  CARDS 
PROC--PROCESS  PROC  CARDS 
PATH--PROCESS  PATH  CARDS 
TERM -“PROCES  S  TERM  CARDS 
XMIT — PROCESS  XM IT  CARDS 
READ--READ  INPUT  FILE 
FUNCTIONS  CALLED: 

NUMNOD — RETURNS  THE  NODE'S  NUMBER 
NUMTRM — RETURNS  THE  TERM'S  NUMBER 
INPUT  ARGUMENTS: 

NONE 

OUTPUT  ARGUMENTS: 

NONE 

INPUTS  VIA  COMMON: 

IFATAL 
NXTNOD 
NXTTRM 
NXTMSG 
PARM  1 
PA  RM  2 
PARM  3 
PARMA 
PARM  *> 

CRDTYP 
LABEL 
LABF.L2 
DSTNAM 

OUTPUTS  VIA  COMMON: 

IFATAL 
NXTNOD 
NXTTRM 
NXTMSC 
M  AXNOD 
MAXTRM 
MAXMSC 
PTI1M  AT 
NODNAM 
TRMNAM 
DSTNAM 

WORKING  VARIABLES: 

I — DO  LOOP  COUNTER 
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r  I SAVM S--TEM PORARY  STORAGE  OF  MESSAGE  COUNT 

C  ISAVND — TEMPORARY  STORAGE  OF  NODE  COUNT 

C  J — DO  LOOP  COUNTER 

C 
C 

C  PARAMETERS  FOR  DIMENSION  SIZES: 

C  NONOD  — MAXIM  UM  NUMBER  OF  NODES 

NOTRM  — M  AX IM  UM  NUMBER  OF  TERMINATE  NODES 
NOMSC — MAXIMUM  NUMBER  OF  MESSAGES 

PARAMETER  (NONOD-IO ,  NOTRM -10 ,NOM  SG-IO) 

CHARACTER  CRDTYP*4,  LABEL*  5 ,  LABEL2*4,  NODNAM*4 ,  DIST*5,  T  RM  N  AM  *  4 
&  BALKS  *4 ,  DSTNAM  *  5 
C  DESCRIPTION  OF  COMMON  BLOCK  /COMl/: 

C 

C  I  FATAL  —  NUMBER  OF  FATAL  ERRORS  DETECTED 

C  NXTNOD — CURRENT  NODE  NUMBER 

C  NXTTRM  — CURRENT  TERMINATE  NODE  NUMBER 

C  NXTMSG  —  CURRENT  MESSACE  NUMBER 

C  MAXNOD — MAXIMUM  NUMBER  OF  NODES 

C  MAXTRM — MAXIMUM  NUMBER  OF  TERMINATE  NODES 

C  M  AXM  SG — M  AX IM  UM  NUMBER  OF  MESSAGES 

C  NODCAPO  ,1  )--MAXIMUM  CAPACITY  OF  NODE  I 

C  NODCAP(  2  ,  I  )  —  NUM  BF.R  OF  SERVERS  AT  NODE  I 

C  PTHM  AT (I ,  J  )-- 

C.  IF  >  0,  NODE  NUMBER  OF  NEXT  NODE  THAT  MESSAGE  J 
C  WILL  FOLLOW  AFTER  NODE  I 

C  IF  -  0,  MESSAGE  J  DOES  NOT  USE  NODE  I 

C  IF  <  0,  NEGATIVE  OF  TUE  TERMINATE  NODE  NUMBER  THAT 

C  MESSAGE  J  WILL  FOLLOW  AFTER  NODE  I 

C  CREATF.(  1  ,  I  )--PARAMETER  1  OF  DISTRIBUTION  RATE  FOR 

C  MESSAGE  I 

C  CREATE (2,1) — PARAMETER  2  OF  DISTRIBUTION  RATE  FOR 

C  MESSACE  I 

C  CREATE(3, I) — PARAMETER  3  OF  DISTRIBUTION  RATE  FOR 

C  MESSACE  I 

C  CREATE(4 , I )  —  STARTINC  TIME  FOR  M  ESSACt  I 

C  CREATE (5,1) — NUMBER  OF  MESSAGE  RELEASES 

C  LASNOD( I  )--THE  PREVIOUS  NODE  NUMBER  IN  THE  PATH  FOR 

C  MESSAGE  I 

C  NODSTR( I ) — THE  FIRST  NODE  NUMBER  IN  THE  PATH  FOR 

C  MESSAGE  I 

C  PARMI — 1ST  NUMERIC  DATA  FIELD  READ  FROM  INPUT  DECK 

C  PARM2 — 2ND  NUMERIC  DATA  FIELD  READ  FROM  INPUT  DECK 

C  PARM  3  —  3RD  NUMERIC  DATA  FIELD  READ  FROM  INPUT  DECK 

C  PARM  4 — 4TH  NUMERIC  DATA  FIELD  READ  FROM  INPUT  DECK 

C  PARM  5  —  5TH  NUMERIC  DATA  FIELD  READ  FROM  INPUT  DECK 

C  DSTPRCO  ,J,  l) — DISTRIBUTION  NUMBER  FOR  THE  PROCESSING 

C  TIME  FOLLOWING  NODE  J  FROM  MESSAGE  I 

C  DSTPRCO,  J, 2)  —  PARAMETER  1  OF  PROCESSING  DISTRIBUTION 

C  DSTPRC( I ,J, 3) — PARAMETER  2  OF  PROCESSING  DISTRIBUTION 

C  DSTPRCO,  J  ,  4)--PARAMETER  3  OF  PROCESSING  DISTRIBUTION 

C  DSTXMT ( I , J , 1 ) — DISTRIBUTION  NUMBER  FOR  THE  TRANSMIT 

C  TIME  FOLLOWING  NODE  J  FROM  MESSAGE  I 
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c 


c 


DSTXMT(I,J,2) —  PARAMETER  1 
DSTXMT( I ,J , 4 )  —  PARAMETER  2 
D  S  T  XM  T  (  I ,  J  ,  4  )  —  PARAMETER  3 


OP  TRANSMIT  DISTRIBUTION 
OF  TRANSMIT  DISTRIBUTION 
OF  TRANSMIT  DISTRIBUTION 


COMMON  / C  OM 1 /  IFATAL,  NXTNOD,  NXTTRM ,  NXTMSC,  MAXNOD,  MAXTRM, 
&  MAXMSC,  NODC  A  P ( 2 ,  NONOD),  PTHMAT(NONOD,  NOMSG), 

4  CREATE ( 6 ,  NOMSC),  LASNOD(NOMSG) ,  NODSTR ( NOM SG ) , 

&  PARMl,  PARM2,  PARM3,  PARM  4  ,  P  A  RM  5  , 

4  DSTPRC( NOM SG ,  NONOD,  4),  DSTXM T ( NOM SG ,  NONOD,  4) 

DESCRIPTION  OF  COMMON  BLOCK  /COM2/: 


C 

C 


NODNAM(  I  )  —  NAMF.  OF  NODE  I 

DIST( I  )  —  NAME  OF  THE  MESSAGE  DISTRIBUTION  FOR  MESSAGE  I 

TRM  NAM ( I )  —  NAM  E  OF  TERMINATE  NODE  I 

CRDTYP — CARD  TYPE  READ  FROM  INPUT  DECK 

LABEL — 1ST  CHARACTER  DATA  FIELD  READ  FROM  INPUT  DECK 

LABEL2 — 2ND  CHARACTER  DATA  FIELD  READ  FROM  INPUT  DECK 

BALKS ( I ) — 

I F  BLANK,  NODE  I  DOES  NOT  BLOCK  OR  BALK 
IF  'BLOK*.  NODE  I  IS  BLOCKED 
OTHERWISE,  NODE  NAME  THAT  NODE  I  BALKS  TO 
DSTNAM--LIST  OF  VALID  DISTRIBUTION  NAMES 


COMMON  / C OM  2  /  NODN AM ( NONOD ) , 

.  LABEL,  LABEL2,  BALKS ( NONOD ) 


DIST(NOMSC) 
,  DSTNAM ( 9  ) 


TRM  NAM ( NOTRM )  ,  CRDTYP, 


C 

FREPARE  INPUT  FILE 

REWIND  10 

c 

INITIAL  VALUES 

IFATAL  - 

0 

NXTNOD  - 

0 

NXTTRM  - 

0 

NXTMSC  - 

0 

MAXNOD  - 

NONOD 

MAXTRM  - 

NOTRM 

MAXMSC  - 

NOMSG 

c 

VALID  DISTRIBUTION 

DSTNAM ( l ) 

-  ’EXPON' 

DSTNAM ( 2 ) 

-  '  N  PS  S  N  ' 

DSTNAM ( 3 ) 

-  'BETA  * 

DSTNAM ( 4 ) 

-  'GAMA  ’ 

DSTNAM ( 5 ) 

-  ' RLOGN ' 

DSTNAM ( 6  ) 

-  ' RNORM ' 

DSTNAM ( 7  ) 

-  ’ UNFRM ' 

DSTNAM ( 8  ) 

«  ' TR I AG ' 

DSTNAM ( 9 ) 

-  'CONST' 

DO  1  I  - 

1  ,  MAXMSC 

DO  1  J  ■ 

1 ,  MAXNOD 

c 

ZERO  OUT 

PTHM AT  (I. 

C 

MESSACE ) . 

1 

PTHM  AT  (  J  , 

I)  -  0.0 

DO  2,  I  - 

1  ,  MAXTRM 

C 

INITIAIIZ 

E  ALL  TERM 

2 

TRM NAM (  I  ) 

m  «  * 

DO  3,  I  - 

1#  MAXNOD 

NAMES 


ESTABLISH  NO  PATHS  EXIST  FOR  ANY 


NODES  TO  BLANK  (UNUSED) 
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PRINT  *,  ’  ’ 

0  CALL  READ 

NODE  CARDS  MUST  BE  FIRST. 

IF  (CRDTYP  .  F.Q .  'NODE')  THEN 

A  NODE  CARD  WAS  FOUND — PROCESS  IT. 

0  CALL  NODE  (LABEL,  PARM 2 ,  PARM  3 ) 

CALL  READ 

ANOTHER  NODE  CARD? 

IF  ( CRDTYP  .EQ.  'NODE')  THEN 
GO  TO  10 
ENDIF 
ELSE 

SOMETHING  OTHER  THAN  A  NODE  CARD  WAS  FIRST. 
PRINT  *,  ' ERROR  — NODE  CARDS  MUST  BE  FIRST.* 

IFATAL  -  IFATAL  +  1 
GO  TO  20 


-  -  PROCESS  TERM  CARDS  ----------------- 

ENDIF 
30  CONTINUE 

C  FOLLOWING  NODE  CARDS  MUST  BE  TERM  CARDS. 

IF  (CRDTYP  .EQ.  'TERM')  THEN 
C  A  TERM  CARD  WAS  FOUN D- -PROCE S S  IT. 

40  CALL  TERM ( LABEL) 

CALL  READ 

C  ANOTHER  TERM  CARD? 

IF  (CRDTYP  .Eq.  'TERM')  THEN 
CO  TO  40 
ENDIF 
ELSE 

C  SOMETHING  OTHER  THAN  A  TERM  CARD  WAS  FOUND. 

PRINT  *,  * ERROR--TERM  CARDS  MUST  FOLLOW  NODE  CARDS.' 

IFATAL  -  IFATAL  +  1 
CALL  READ 
GO  TO  30 
ENDIF 
C 

C  -  --  --  --  --  --  --  --  --  --  --  --  --  --  --  - 

C 

C  -  -  -  PROCESS  MESSAGES  ------------------ 

C 
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C  EACH  MESSAGE  CONSISTS  OF  A  MESS  CARD,  FOLLOWED  BY  A  PROC  (OPTIONAL), 
C  AN  XMIT  (OPTIONAL),  AND  A  PATH  CARD.  CONTINUE  PROCESSING  MESSAGES 
C  UNTIL  A  NON-MESS,  PROC,  XMIT  OR  PATH  CARD  IS  FOUND. 

C 

C  FOLLOWINC  TERM  CARDS  MUST  BE  A  MESS  CARD. 

50  IF  (CRDTYP  .NE.  ’MESS')  THEN 

C  SOMETHING  OTHER  THAN  A  MESS  CARD  WAS  FOUND. 

PRINT  *,  'ERROR — MESS  CARD  MUST  FOLLOW  TERM  CARDS.' 

IFATAL  «  I  FATAL  +  1 
CALL  READ 
CO  TO  50 
ELSE 

C  A  MESS  CARD  WAS  FOUND--PROCESS  IT. 

60  CALL  M  ESS ( LABEL ,  PARM 1 ,  P ARM  2 ,  PARM  3 ,  PARM4,  PARM  5 ,  LABEL2 ) 

CALL  READ 

C  FOLLOWINC  A  MESS  CARD  CAN  BE  A  PATH  CARD,  A  PROC 

C  CARD,  OR  AN  XMIT  CARD. 

IF  (CRDTYP  .EQ.  'PROC')  THEN 
C  A  PROC  CARD  WAS  FOUND — PROCESS  IT. 

CALL  PROC  (LABEL,  PARM3,  PARM  4  ,  PARM 1 ) 

CALL  READ 
ELSE 

C  NO  PROC  CARO  WAS  FOUND — ESTABLISH  DEFAULT  PROCESS  TIME 

CALL  PROC( 'CONST* ,  0.0,  0.0,  0.0) 

ENDIF 

IF  (CRDTYP  .EQ.  'XMIT')  THEN 
C  AN  XMIT  CARD  WAS  FOUND — PROCESS  IT. 

CALL  XM IT( LABEL,  P  A  RM  3 ,  PARM  4 ,  PARH1) 

CALL  READ 
ELSE 

C  NO  XMIT  CARD  WAS  FOUND — ESTABLISH  DEFAULT  TRANSMIT  TIME 

CALL  XMIT( 'CONST' ,  0.0,  0.0,  0.0) 

ENDIF 

C  A  PATH  CARD  MUST  BE  NEXT. 

IF  (CRDTYP  .NE.  'PATH')  THEN 

C  NO  PATH  CARD  FOUND. 

NXTMSG  -  NXTMSG  -  1 

PRINT  * ,  'ERROR — MISSING  PATH  CARD.  SKIPPING  TO  NEXT  MESS.' 
70  CALL  READ 

C  CO  TO  BEGINNING  OF  NEXT  MESSAGE. 

IF  (CRDTYP  .EQ.  'MESS')  THEN 
GO  TO  60 
ELSE 

GO  TO  70 
ENDIF 
ELSE 

C  A  PATH  CARD  WAS  FOUND--PROCESS  IT. 

80  CALL  PATH 

C  IF  NUMTRM (LABEL)  -  0,  THEN  THE  LAST  NODE  SPECIFIED 

C  WAS  NOT  A  TERMINATE  NODE.  THEREFORE,  THE  NEXT  CARD 

C  MUST  BE  EITHER  PROC,  XMIT  OR  PATH  TO  CONTINUE 

C  DESCRIBING  THIS  MESSAGE  PATH. 

IF  (NUMTRM (LABEL)  .Eq.  0)  THEN 
C  LAST  NODE  WAS  NOT  A  TERMINATE  NODE. 
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CALL  RF.  AD 

IF  (CRDTYP  .EQ.  *PROC')  THEN 
C  A  PROC  CARD  WAS  FOUND--PROCESS  IT. 

CALL  PROC (LABEL,  PARM 3  ,  P ARM  4 ,  PARM I ) 

CALL  READ 
ELSE 

C  '  NO  PROC  CARD  WAS  FOUND — ESTABLISH  DEFAULT  PROCESS  TIM 

CALL  PROC( *  CONST ' ,  0.0,  0.0,  0.0) 

E  H  D  I  F 

IK  (CRDTYP  .EQ.  'XMIT')  THEN 
C  AN  XMIT  CARD  WAS  FOUND — PROCESS  IT. 

CALL  XMIT(LARRL,  PA  RM  3 ,  PARM  4 ,  PARM 1  ) 

CALL  READ 
ELSE 

NO  XMIT  CARD  WAS  F OUN D- -E STABL I SH  DEFAULT  TRANSMIT 
TIM  E  . 

CALL  XM  IT( ’ CONST ' ,  0.0,  0.0,  0.0) 

E  N  D I  F 

IF  (CRDTYP  .EQ.  ’PATH*)  THEN 

A  PATH  CARD  WAS  FOUND — PROCESS  IT. 

CO  TO  80 
ENDI  F 

NO  PATH  CARD  WAS  FOUND. 

PRINT  *,  'ERROR — MESSAGE  MUST  END  ON  A  TERMINATE  NODE.' 
IFATAL  -  IFATAL  +  l 
ELSE 

THE  LAST  NODE  WAS  A  TERMINATE  NODE. 

CALL  READ 
ENDI  F 
ENDI  F 
ENDIF 

FOLLOWING  THE  LAST  PATH  CARD  OF  A  MESSACE  MAY  BE  ANOTHER 
MESS  CARD,  A  BALK  CARD,  OR  AN  END  CARD. 

IF  (CRDTYP  .EQ.  ’MESS’)  THEN 

ANOTHER  MESSAGE  IS  BEING  DEFINED. 

CO  TO  50 


ENDIF 

SAVE  NXTNOD  AND  NXTMSG  FOR  LATER  USE. 

ISAVND  «  NXTNOD 
ISAVMS  -  NXTMSG 
IF  (CRDTYP  .NE.  'BALK')  THEN 

A  BALK  ROUTE  IS  NOT  BEINC  DEFINED. 

CO  TO  500 
ENDIF 

-  -  PROCESS  BALK  ROUTES  ---------------------- 

EACH  BALK  ROUTE  CONSISTS  OF  A  BALK  CARD,  FOLLOWED  BY  A  PROC(OPTIONAL 
AN  XMIT  (OPTIONAL),  AND  A  PATH  CARD.  CONTINUE  PROCESSING  BALK  ROUTE 
UNTIL  A  NON-BALK,  PROC,  XMIT  ORPATH  CARD  IS  FOUND 
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C  ESTABLISH  THE  NXTNOD  NUMBER  FOR  THIS  BALK  ROUTE. 

400  NXTNOD  -  NUMNOD(LABEL) 

IF  (NXTNOI)  .EQ.  0)  THEN 

PRINT  *,  ’ ERROR--INVALID  BALK  NODE  (SKIPPING  TO  NEXT  BALK.)’ 

PRINT  *,  ’  CORRECT  NODE  NAME  OR  INSERT  CORRESPONDING  ’ , 

&  ’TERM  CARD.’ 

I  FATA L  -  I  FATAL  +  I 
402  CALL  READ 

IF  (  CRDTYP  .  F.  0 .  'BALK')  THEN 
CO  TO  400 
ELSE 

CO  TO  402 

END  IF 
F.NDIF 

ESTABLISH  THE  NXTM  SC  NUMBER  FOR  THIS  BALK  ROUTE. 

NXTMSC  IS  THE  MESSAGE  NUMRER  OF  TRE  MESSAGE  FOR  WHOM  A  BALK 
C  ROUTE  IS  BEING  DEFINED. 

NXTMSC  -  PARM1 

IF  (NXTMSC  .CT.  ISAVMS  .OR.  NXTMSC  . LE .  0)  THEN 

PRINT  *,  'ERROR--INVALID  MESSACE  NUMBER  (SKIPPING  TO  NEXT 
&  ’BALK).' 

IFATAL  -  I  FATAL  +  1 

401  CALL  READ 

IF  (CRDTYP  .EQ.  ’BALK’)  THEN 
GO  TO  400 
ELSE 

GO  TO  401 
ENDIF 
ENDIF 

C  A  VALID  BALK  CARD  WAS  FOUND--PROCESS  IT. 

CALL  BALK 
CALL  READ 

C  FOLLOWING  A  BALK  CARD  MAY  BE  EITHER  A  PROC  CARD,  XMIT 

C  CARD,  OR  PATH  CARD. 

410  IF  (CRDTYP  .  EQ .  'PROC')  THEN 
C  A  PROC  CARD  WAS  FOUND — PROCESS  IT. 

CALL  PROC( LABEL,  PARM3,  PA RM 4 ,  PARM1) 

CALL  READ 
ELSE 

C  NO  PROC  CARD  WAS  FOU  N  D- -E  S  T  ABL I  S II  DEFAULT  PROCESS  TIME. 

CALL  PROC  ('CONST',  0.0,  0.0,  0.0) 

ENDIF 

IF  (CRDTYP  .EQ.  'XMIT')  THEN 
C  AN  XMIT  CARD  WAS  FOUND- -PROC E S S  IT. 

CALL  XMIT(LABEL,  PARM3,  PARM  4 ,  PARMl) 

CALL  READ 
ELSE 

C  NO  XMIT  CARD  WAS  FOUN D- -E ST A B L I S H  DEFAULT  TRANSMIT  TIME. 

CALL  XM IT( 'CONST ' ,  0.0,  0.0,  0.0) 

ENDIF 

IF  (CRDTYP  .NE.  'PATH')  THEN 
C  THIS  BALK  ROUTE  CONTAINED  NO  PATH. 

PRINT  *,  'ERROR- -MISSING  BALK  PATH  CARD.  SKIPPING  TO  NEXT  ', 
A  'BALK.' 
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IFATAL  -  I  FATAL  +  1 

C  SKIP  TO  NF.XT  BALK  CARD. 

600  CALL  READ 

C  ANOTHER  BALK? 

IF  (CRDTYP  .EQ.  'BALK')  THEN 
CO  TO  400 
ELSE 

CO  TO  600 

K  N  D  I  F 
ELSE 

C  A  PATH  CARD  WAS  FO UN D- -PR OC ES S  IT. 

CALL  PATH 
END  IF 
CALL  READ 

IS  THE  NEXT  CARD  A  PROC  OR  PATH  OR  XMIT  (I.E.,  A  CONTINUATION 
OF  THIS  BALK  PATH)? 

IF  (CRDTYP  .EQ.  'PROC*  .OR.  CRDTYP  .EQ.  'XMIT'  .OR. 

&  CRDTYP  .EQ.  'PATH')  THEN 
CO  TO  410 
ENDIF 

FOLLOWING  THE  LAST  PATH  CARD  OF  A  BALK  ROUTE  MAY  BE 
ANOTHER  BALK  CARD  OR  AN  END  CARD. 

IF  (CRDTYP  .EQ.  'BALK')  THEN 
C  ANOTHER  BALK  CARD  WAS  FOUND. 

CO  TO  400 
C 

C----------------------~------------ 

c 

c  -  -  -  END  OF  DATA--VAI,  IDATE  AND  PRODUCE  SLAM  OUTPUT  -  --  --  --  -- 
C 

ENDIF 

500  CONTINUE 

C  THE  NEXT  CARD  MUST  BE  AN  END. 

IF  (CRDTYP  .NE.  'END  ')  THEN 

PRINT  *,  'ERROR — END  CARD  EXPECTED.’ 

IFATAL  »  IFATAL  +  1 
ENDIF 

C  RESTORE  NXTMSC  AND  NXTNOD  TO  THEIR  PREVIOUS  VALUES. 

NXTMSC  -  ISAVMS 
NXTNOD  -  ISAVND 
C  VERIFY  BALK  ROUTES. 

IF  (IFATAL  .EQ.  0)  THEN 
CALL  CIIKBLK 
ELSE 

PRINT  *,  'WARNI NC--BALK  ROUTE  VERIFICATION  NOT  ATTEMPTED  DUE’, 
A  '  TO  PREVIOUS  ERRORS.' 

ENDIF 

CALL  C1IKUSD 

IF  (IFATAL  .EQ.  0)  THEN 

C  IF  NO  ERRORS  DETECTED,  PRODUCE  SLAM  OUTPUT. 

PRINT  *,  'NO  ERRORS  DETECTED.  SLAM  SOURCE  WILL  BE  CONSTRUCTED. 
CALL  BLDOUT 
ELSE 

PRINT  *,  IFATAL,  '  ERRORS  DETECTED.  SLAM  SOURCE  WILL  NOT  BE  ' 
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•CONSTRUCTED.  • 


END  I  ? 

RETURN 

END 


t 
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SUBROUTINE  BALK 


C 

C  THIS  SUBROUTINE  HANDLES  BALK  CARDS.  WHEN  A  BALK  IS  ENCOUNTERED, 

C  LASNOD  (THF.  PREVIOUS  NODE  NUMBER)  IS  INITIALIZED  TO  THE  FIRST 

C  NODE  IN  THE  BALK  PATH. 

C 

C  CALLED  BY: 

M  A  I  N 

SUBROUTINES  CALLED: 

NONE 

FUNCTIONS  CALLED: 

NUMNOD 

INPUT  ARCUMENTS: 

C  NONE 

C  OUTPUT  ARCUMENTS: 

C  NONE 

C  INPUTS  VIA  COMMON: 

C  IFATAL 

C  NXTMSC 

C  LABEL 

C  OUTPUT  VIA  COMMON: 

C  IFATAL 

C  LASNOD 

C  WORKING  VARIABLES: 

C  NUMN--NODE  NUMBER 

C 

PARAMETER  (  NO NO D« 1 0 , NOTRM « 1 0 , NOM SC  - 1  0  ) 

CHARACTER  CRDTYP*A,  LABEL*  5  ,  LABEL2  *  A  ,  NODNAM  *  A  ,  DIST*5,  TRM  NAM  *  A 
&  BALKS  *4  ,  DSTNAM*5 

COMMON  / COM  1 /  IFATAL,  NXTNOD,  NXTTRM ,  NXTMSC,  MAXNOD,  MAXTRM, 

&  MAXMSG,  NODCAP(2,  NONOD),  PTHM AT ( NONOD ,  NOMSG), 

&  CRF.  ATE(6  ,  NOMSG),  LAS  NOD  (  NOM  S  G  )  ,  NODS  TR  (  NOM  SC  )  , 

&  PARM1,  PARM2,  PARM  3 ,  PARM  4 ,  PARM5, 

&  DSTPRCCNOMSG,  NONOD,  A),  DSTXM T ( NOM SC ,  NONOD,  A) 

COMMON  / C OM  2 /  NODNAM ( NONOD ) ,  DIST(NOMSC),  TRM NAM ( NOTRM ) ,  CRDTYP, 

(.  LABEL,  LABEL2,  B  ALKS  (  NONOD  )  ,  DSTNAM  (  9  ) 

C  FIND  THE  NODE  NUMBER  OF  THE  RALK  NODE  (NUMN  MUST  BE  >  0  TO 

C  BE  VALID). 

NUMN  -  NUMNOD(LABEL) 

IF  (NUMN  .CT.  0)  THEN 

C  INITIALIZE  LASNOD  TO  THE  1ST  NODE  IN  THIS  BALK  PATH. 

LASNOD(NXTMSG)  -  NUMN 
ELSE 

PRINT  *,  '  ERROR--I  LI.F.CAL  BALK  NODE  NAME.' 

IFATAL  -  IFATAL  +  l 
ENDIF 
RETURN 
END 
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SUBROUT  I NE  BLDOUT 


C 

C  THIS  SUBROUTINE  PRODUCES  THE  SLAM  SOURCE  CODE,  WHICH  IS 

C  WRITTEN  TO  FILE  20. 

C 

C  CALLED  BY: 

C  MAIN 

C  SUBROUTINES  CALLED: 

C  NONE 

C  FUNCTIONS  CALLED: 

NUM  DST 

INPUT  ARGUMENTS: 

NONE 

OUTPUT  ARGUMENTS: 

NONE 

INPUTS  VIA  COMMON: 

NXTNOD 
NXTTRM 
NXTM SC 
NODCAP 
PTHM AT 
CREATE 
NODSTR 
DSTPRC 
DSTXMT 
NODNAM 
DI  ST 
TRMNAM 
C  BALKS 

C  DSTNAM 

C  -OUTPUTS  VIA  COMMON: 

C  NONE 

C  WORKING  VARIABLES: 

C  BRNAME — BRANCH  NODE  NAME 

C  I  — DO  LOOP  COUNTER 

C  ICNT — GENERATED  LINE  LABEL  NUMBER 

C  IMAX  —  I  NTEGF.R  REPRESENTATION  OF  STARTING  TIME  OF  MESSAGE 

C  IM IN — I NTEGER  REPRESENTATION  OF  NUMBER  OF  MESSAGE  RELEASES 

C  ISTRT  —  I.  INF.  LAREL  NUMBER 

C  J  —  DO  LOOP  COUNTER 

C  NUM  — THE  NEXT  NODE  NUMBER  IN  THE  PATH 

C  NUMD — DISTRIBUTION  NUMBER 

C 

PARAMETER  ( NO NO D- 1 0 , NOTRM - 1 0 , NOM SC - 1 0 ) 

CHARACTER  B  RNAM  E *4 

CHARACTER  CRDTYP*4 ,  LABEL*5 ,  LABEL2*4,  N0DNAM*4,  DIST*5,  TRMNAM*4 
&  BALKS *4 ,  DSTN AM  *  5 

COMMON  / COM  1 /  IFATAL,  NXTNOD,  NXTTRM,  NXTMSG,  MAXNOD,  MAXTRM, 

&  MAXMSC,  NODCAP ( 2 ,  NONOD),  PTHM AT ( NONOD ,  NOMSC), 

&  CREATE! 6  ,  NOMSC),  LASNOD( NOM SG  )  ,  NODSTR(NOMSG) , 

&  PARM1,  P  ARM  2  ,  PARM3,  P  A  RM  4  ,  PARM5, 

4  DSTPRC(NOMSC,  NONOD,  4),  DS TXM T ( NOM SG ,  NONOD,  4) 

COMMON  / C  OM  2 /  NODNAM(NONOD) ,  DIST(NOMSG),  TRM NAM ( NOTRM )  ,  CRDTYP , 

4  LABEL,  LABEL2,  BALKS ( NONOD ) ,  DSTN AM (9) 
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RKWIND  20 

C  WRITE  SLAM  CEN  CARD. 

WRITE  (20,  10) 

10  FORMAT  (  'CEN, SLAMPP, SLAM , 09/1  9/1 982  , I ,,,,,,  72 ) 

WRITE  (20,  15)  NXTNOD 
C  WRITE  LIM  CARD. 

15  FORM  AT  ( ’LIM  ,  '  ,  I  4  ,  •  ,2 , 500;  * ) 

WRITE  (20,20) 

20  FORM  AT  (  'NETWORK  ;  '  ) 

C  WRITE  RESOURCE  CARD  FOR  EACH  NODE. 

DO  300,  I  -  l,  NXTNOD 

300  WRITE  (20,  301)  NODNAM(I),  N0DCAP(2,  I),  I 

301  FORMAT  (’  RESOURCE/',  A4  ,  '(',  14,  '),',  14,  • ; ' ) 

C  WRITE  MESSACE  CREATION  CARDS.  EACH  MESSAGE  CONSISTS  OF  A 

C  CREATE  CARD,  ASSICN  CARD,  AND  AN  ACT  CARD. 

DO  900  I  -  1,  NXTMSG 
C  STARTING  TIME  FOR  THIS  MESSAGE. 

IMIN  -  CREATE  (4,  I) 

C  NUMBER  OF  MESSAGE  RELEASES. 

IMAX  -  CREATE  (5,  I) 

C  NUMBER  OF  THE  CREATION  DISTRIBUTION  RATE. 

NUMD  »  NUM  DST(DIST(  I  )  ) 

C  EACH  DISTRIBUTION  RATE  REQUIRES  A  CERTAIN  NUMBER  OF  INPUT 

C  PARAMETERS.  THE  FOLLOWING  SELECTS  THE  APPROPRIATE  WRITE 

C  STATEMENT  FOR  THE  DISTRIBUTION. 

IF  (NUMD  .EQ.  9)  THEN 
C  CONSTANT  CREATION  RATE. 

WRITE  (20,  800)  CREATE(1,  I),  IMIN,  IMAX 

800  FORMAT  (’  CREATE,’,  F10.5,  15,  ',1,', 

4  15,  '  ;  '  ) 

ELSE  IF  (NUMD  .LE.  2)  THEN 

C  FOR  EXPON  AND  NPSSN  (REQUIRING  ONE  PARAMETER). 

WRITE  (20,  805)  DIST(I),  CREATE ( 1 ,  I),  IMIN,  IMAX 
805  FORMAT  ('  CREATE,',  A5,  ’(’,  F10.5, 

4  15,  ',1,',  15,  *;') 

ELSE  IF  (NUMD  .LE.  7)  THEN 

C  FOR  BETA,  CAMA,  RLOCN,  RNORM  AND  UNFRM  (REQUIRING  TWO 

C  PARAMETERS). 

WRITE  (20,  RIO)  DIST(l),  CREATE ( 1 ,  I),  CREATE( 2 ,  I), 

4  IMIN,  IMAX 

810  FORMAT  (’  CREATE,',  A5,  '(’,  F10.5,  F10.5, 

4  '),',  15, \1,\  15,  ’;’) 

ELSE 

C  FOR  TR1AG  (REQUIRING  THREE  PARAMETERS). 

WRITE  (20,  820)  DIST(I),  CREATE ( 1 ,  I),  CREATE ( 2 ,  I), 

4  CREATE  ( 3 ,  I),  IMIN,  IMAX 

820  FORMAT  ('  CREATE,',  A5,  ’(',  2(F10.5, 

4  F10.5,  '),',  15,  ’,1,',  15,  ';') 

END  I  F 

C  EACH  MESSAGE  IS  ASSIGNED  A  SEQUENTIAL  MESSAGE  NUMBER  SO 

C  THAT  DIFFERENT  MESSAGES  CAN  BE  DISTINGUISHED  FROM  EACH 

C  OTHER  THROUGHOUT  THE  NETWORK. 

WRITE  (20,  30)  I 

30  FORMAT  ('  ASS 1 GN , ATR IB ( 2  )- ’  ,  I  4 , '  ;  ’  ) 


27 


u  u  u  ouo  u  cj  «r  o  on  ocnu  o  cj  u  u  u  mcj  o'  cj  t; 


C  ACT  TO  BRANCH  TO  1ST  NODE  IN  THE  PATH. 

WRITE  (  20  ,  35  )  NODNAM ( NODSTR ( I  )  ) 

3  5  FORMAT  ('  ACT  ,  ,  ,  '  ,  A  4  ,  '  ;  '  ) 

900  CONTINUE 

C  ESTABLISH  BECINNINC  LABEL  NUMBER  FOR  PROGRAM  GENERATED  LABELS. 

I C  NT  -  101 

C  GENERATE  THE  SLAM  OUTPUT  NECESSARY  TO  DESCRIBE  EACH  NODE. 

THIS  WILL  CONSIST  OF  AN  AWAIT  CARD,  BRANCH  CARDS  (ACT)  FOR 
EACH  MESSAGE,  PLUS  A  SET  OF  PROCESS  AND  TRANSMIT  ACTIVITIES 
FOR  EACH  MESSACF.  USING  THIS  NODE. 

DO  950  I  -  1,  NXTNOD 

THREE  TYPES  OF  AWAIT  STATEMENTS  ARE  POSSIBLE:  AN  AWAIT  WITHOUT 
ANY  BLOCKING  OR  BALKING,  AN  AWAIT  WITH  BLOCKING,  OR  AN  AWAIT 
WITH  BALKINC. 

IF  ( BALKS ( I )  .EQ.  '  ')  THEN 

NO  BLOCKING  OR  BALKINC. 

WRITE  (20,  40)  NODNAM (I  )  ,  I,  NODCAP ( I ,  I),  NODNAM (I) 

0  FORMAT  ( A4 ,  2X,  'AWAIT(',  14,  ’/',  14,  A4, 

ELSE  IF  ( BALKS ( I )  .EQ.  ’BLOK’)  THEN 
BI.OCKI  NC. 

WRITE  (20,  41)  NODNAM ( I ) ,  I,  N0DCAP(1,  I),  NODNAM ( I  ) 

1  FORMAT  (A4,  2X,  'AWAITC,  14,  '/’,  14,  A4 ,  ',  BLOCK;') 

ELSE 

BALKING . 

WRITE  (20,  42)  NODNAM(I),  I,  NODCAP(l,  I),  NODNAM (I), 

&  BALKS(I) 

2  FORMAT  (A4,  2X,  'AWAITC,  14,  '/',  14,  A4 ,  '  ,  B  ALK  (  '  , 

4  A4.  '  );  '  ) 

F.NDIF 

PLACE  A  DUMMY  ACTIVITY  FOLLOWING  THE  AWAIT. 

8  FORMAT  ( '  ACT;  '  ) 

WRITE  (20,29) 

COON  TO  SPECIFY  ONLY  ONE  BRANCH  TO  BE  TAKEN. 

9  FORMAT  (  '  COON, 1 ;  '  ) 

SAVE  THE  NUMBER  OF  THE  FIRST  PROGRAM  GENERATED  LABEL. 

ISTRT  -  ICNT 

DO  925  J  -  1,  NXTMSG 

CET  THE  NODE  NUMBER  OF  THE  I-TH  NODE  IN  PATH  J. 

NUM  -  PTIIMAT  (I,  J) 

IF  0,  MESSAGE  I  DOES  NOT  USE  PATH  J. 

IF  (NUM  .NE.  0)  THEN 

CONSTRUCT  SLAM  BRANCH  TO  THAT  PORTION  OF  THE  SLAM  CODF. 

WHICH  WILL  HANDLE  THE  PROCESS  AND  TRANSMIT  TIMES  FOR  THIS 
MESSAGE  . 

WRITE  (20,  500)  J,  ICNT 

00  FORMAT  ('  ACT,  ,ATRIB(2 ) .EQ. '  ,  14, '  ,L' , 13,  '  ;  '  ) 

INCREMENT  PROGRAM  GENERATED  LABEL  NUMBER. 

ICNT  *  ICNT  +  1 
END  IF 

25  CONTINUE 

GENERATE  A  PROCESS  AND  TRANSMIT  ACTIVITY  PAIR  FOR  EACH  MESSACE 
THAT  USES  NODE  J. 

DO  926  J  -  1,  NXTMSC 

C  CET  THE  NODE  NUMBER  OF  THE  I-TH  NODE  IN  PATH  J. 
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NUM  -  PTIIMATO,  J) 

C  IF  0,  MESSAGE  I  DOES  NOT  USE  PATH  J. 

IF  (NUM  .NE.  0)  THEN 

WRITE  (20,  SOI )  ISTRT 

C  CONSTRUCT  DUMMY  COON  WITH  PROGRAM  GENERATED  LABEL. 

501  FORMAT  ('L',  13,  '  COON;') 

C  INCREMENT  PROGRAM  GENERATED  LABEL  NUMBER. 

ISTRT  -  ISTRT  +  1 

C  EACH  DISTRIBUTION  RATE  REQUIRES  A  CERTAIN  NUMBER  OF  INPUT 

C  PARAMETERS.  THE  FOLLOWING  SELECTS  THE  APPROPRIATE  WRITE 

C  STATEMENT  FOR  THE  DISTRIBUTION. 

C 

C  IF  THE  DISTRIBUTION  IS  A  CONSTANT  ZERO,  DO  NOT  WRITE  ANYTHING. 

IF  (D5TPRC(J,  I,  I)  .EQ.  9.0  .AND. 

&  DSTPRC(J,  I,  2)  .EQ.  0.0)  THEN 

CO  TO  600 
END  IF 

IF  (DSTPRC(J  ,  I,  I)  .EQ.  9.0)  THEN 
C  CONSTANT  PROCESS  TIME. 

WRITE  (20,  502)  DSTPRC(J,  I,  2) 

502  FORMAT  (ftX.’ACT,'  ,F10.5,';') 

ELSE  IF  (DSTPRC(J,  I,  1)  .LE.  2.0)  THEN 
C  FOR  EXPON  AND  NPSSN  (REQUIRING  ONE  PARAMETER). 

WRITE  (20,  503  )  DSTN AM ( INT(DSTPRC(J  ,  I,  1))), 

&  DSTPR  C( J ,  I,  2) 

503  FORMAT  (6X,  'ACT,',  A5,  '(', 

&  F10.5.  •  );  ’) 

ELSE  IF  ( D  S  TPR  C ( J ,  I,  I)  .LE.  7.0)  THEN 
C  FOR  BETA,  GAMA,  RLOGN,  RNORM  AND  UNFRM  (REQUIRING  TWO 

C  PARAMETERS). 

WRITE  (20  ,  504 )  D ST N AM ( I  NT ( DS TPRC( J ,  I,  l))), 

6  DSTPRC( J ,  I,  2),  DSTPRC ( J ,  I,  3) 

504  FORMAT  (6X,  'ACT,1,  A5,  '(', 

&  F10.5,  F10.5,  ');') 

ELSE 

C  FOR  TRIAC  (REQUIRING  THREE  PARAMETERS). 

WRITE  (20,  505)  DSTNAM ( I  NT ( DSTPRC ( J  ,  I,  1))), 

&  DSTPRC( J ,  I,  2),  DSTPRC( J ,  I,  3),  DSTPRC(J,  I,  4) 

505  FORMAT  (6X,  'ACT,*,  A5,  ’(', 

&  2(F10. 5,  •  , '  ) ,  F10. 5,  ’  );  ’  ) 

ENDIF 

C  PLACE  A  DUMMY  GOON  BETWEEN  PROCESS  AND  TRANSMIT  ACTIVITIES. 

WRITE  (20,  506) 

506  FORMAT  ( '  GOON;  '  ) 

600  CONTINUE 

C  FIND  THE  NODE  NAME  OF  THE.  NEXT  NODE  IN  THE  PATH.  IF 

C  NUM  >  0,  THEN  THE  NEXT  NODE  IS  A  NODE.  IF  <  0,  THEN  THE 

C  NEXT  NODE  IS  A  TERMINATE  NODE. 

IF  (NUM  .CT.  0)  THEN 
BRNAME  -  NODNAM(NUM) 

ELSE 

BRNAME  -  TRMNAM(-NUM) 

ENDIF 

C  OBTAIN  THE  NUMBER  OF  SERVERS  FOR  THIS  TRANSMIT  ACTIVITY. 
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C  F.  AC  II  DISTRIBUTION  RATE  RF.QUIRFS  A  CFRTAIN  NUMBER  OF  INPUT 

C  PARAMETERS.  THE  FOLLOWING  SELECTS  THE  APPROPRIATE  WRITE 

C  STATEMENT  FOR  THE  DISTRIBUTION. 

C  IF  THE  DISTRIBUTION  IS  A  CONSTANT  ZERO,  DO  NOT  WRITE  AvNYTHING . 

IF  (DSTXMT(J ,  I,  1)  .EQ.  9.0  .AND. 

&  DSTXMT(J,  1,  2)  .EQ.  0.0)  THEN 

CO  TO  601 
E  N  0  I  F 

IF  (DSTXMT(J,  I,  1)  .EQ.  9.0)  THEN 

C  CONSTANT  PROCESS  TIME. 

WRITE  (20,  502)  DSTXMT(J,  I,  2) 

ELSE  IF  (DSTXMT(J,  I,  1)  .LE.  2.0)  THEN 
C  FOR  EXPON  AND  NPSSN  (REQUIRING  ONE  PARAMETER). 

WRITE  (20,  503)  DSTN AM ( INT(DSTXMT(J ,  I,  1))), 

6  DSTXMT(J  ,  I,  2) 

ELSE  IF  (DSTXMT(J,  I,  1)  .LE.  7.0)  THEN 
C  FOR  BETA,  GAMA,  RLOGN ,  RNORM  AND  UNFRM  (REQUIRING  TWO 

C  PARAMETERS). 

WRITE  (20,  504 )  DSTNAM ( I NT(DSTXMT( J ,  I,  1))), 

&  DSTXM  T ( J ,  I,  2),  DSTXMT(J,  I,  3) 

ELSE 

C  FOR  TRIAC  (REQUIRING  THREE  PARAMETERS). 

WRITE  (  20,505  )  DSTN AM ( I  NT ( DSTXM T ( J ,  I,  1))), 

S  I)  S  T  XM  T  ( J  ,  I,  2),  DSTXM  T  ( J  ,  I,  3),  DSTXMT(J,  I,  4) 

END  I  F 

601  CONTINUE 

WRITE  (20,  303)  NODNAM(I) 

303  FORMAT  ('  FREE,',  A4 ,  ';*) 

WRITE  (20,  35)  BRNAME 
ENDIF 

926  CONTINUE 
950  CONTINUE 

DO  960  I  -  1 ,  NXTTRM 

C  PRINT  EACH  OF  THE  TERMINATE  NODE  CARDS. 

WRITE  (20,  50)  TRMNAM(I),  TRMNAM(I) 

50  FORMAT  (A4,  2X,  ’ COLCT , I NT ( 1 ) , EXIT  INTRVL  A4 ,  ’;•) 

WRITE  (20,  55) 

55  FORMAT  ( ’  TERM ;  '  ) 

960  CONTINUE 

WRITE  (20,  59) 

59  FORMAT  ('  END;') 

WRITE  (20,  60) 

60  FORMAT  ( * INIT.O; * ) 

WRITE  (20,  65) 

65  FORMAT  ( ’FIN;  '  ) 

RETURN 

END 
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SUBROUTINE  CHKKI.K 
C 

C  THIS  SUBROUTINE  VERIFIES  THAT  ALL  BALK  PATHS  ARE  VALID,  I.E., 

C  ALL  PATHS  END  AT  A  TERMINATE  NODE  AND  NO  PATH  CONTAINS  A  CYCLE. 

C 

C  CALLED  BY: 

C  MAIN 

C  SUBROUTINES  CALLED: 

C  NONE 

C  FUNCTIONS  CALLED: 

C  NUMNOD 

C  INPUT  ARGUMENTS: 

C  NONE 

C  OUTPUT  ARCUMENTS: 

C  NONE 

C  INPUTS  VIA  COMMON: 

C  IFATAL 

C  NXTNOD 

C  NXTMSC 

C  PTHMAT 

C  NODNAM 

C  BALKS 

C  OUTPUTS  VTA  COMMON: 

C  IFATAL 

C  WORKING  VARIABLES: 

C  I --DO  LOOP  COUNTER 

C  J  —  DO  I.OOP  COUNTER 

C  NEXT — NEXT  NODE  NUMBER  ON  THE  PATH 

C  NOSTF.P  —  COUNT  OF  THE  NUMBER  OF  NODES  IN  A  PATH 

NUM  --BALK  NODE  NUMBER 

PARAMETER  ( NONOD-1  0 , NOTRM -1 0 , NOM SG-1 0 ) 

CHARACTER  CRDTYP**,  LABEL*5 ,  LABEL2  *4 ,  NODNAM**,  DIST*5,  TRM  NAM  *  *  . 
&  BALKS**,  DS  TNAM  *  5 

COMMON  /COM  1 /  IFATAL,  NXTNOD,  NXTTRM ,  NXTMSG,  M  AXNOD ,  MAXTRM , 

&  MAXMSG,  NODCAP(2 ,  NONOD),  PTHM AT ( NONOD ,  NOMSG), 

&  CREATE ( 6 ,  NOMSG),  LA S NOD ( NOM SC ) ,  NODSTR ( NOM SC ) , 

A  FARM  l  ,  PARM2,  PARM  3 ,  PARM4,  PARM5, 

A  DSTPRC(NOMSC,  NONOD,  A),  DSTXM T ( NOM SG ,  NONOD,  4) 

COMMON  / C  OM  2 /  NODNAM ( NONOD) ,  DIST(NOMSC),  TRM NAM ( NOTRM )  ,  CRDTYP , 

A  LABEL,  LABEL2,  BALKS ( NONOD ) ,  DSTNAM ( 9 ) 

DO  10  I  -  1 ,  NXTNOD 

IF  BALK ( I )  IS  BLANK  OR  'BLOK',  THEN  A  BALK  ROUTE  WAS  NOT 
SPECIFIED  FOR  NODE  I  AND,  THEREFORE,  NEED  NOT  BE  CHECKED. 

IF  ( BALKS ( I )  .NE.  '  '  .AND.  BALKS ( I )  .NE.  ’BLOK')  THEN 

FIND  THE  NODE  NUMBER  THAT  NODE  I  WILL  BALK  TO. 

NUM  -  NUMNODI BALKS ( I ) ) 

DO  20  J  -  1,  NXTMSG 

IF  PTIIMAT(I.J)  -  0,  THEN  MESSAGE  J  DOES  NOT  USE  NODE  I  AND 
CAN  BE  IGNORED.  OTHERWISE,  FOR  EACH  MESSAGE  J  IN  NODE  I 
INSURE  THAT  BALK  NODE  NUM  HAS  A  PATH  FOR  MESSAGE  J  (I.E., 

IF  MESSAGE  J  APPEARS  IN  NODE  I,  MESSACE  J  MUST  ALSO  APPEAR 
C  IN  NODE  NUM ) . 

IF  ( PTHM AT ( I ,  J)  .NE.  0)  THEN 
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NOSTF.P  WILL  COUNT  HOW  MANY  NODES  ARE  IN  THE  MESSAGE'S  PATH. 
NOSTEP  -  0 

C  FIND  THE  NEXT  NODE  NUMBER  IN  THE  BALK  PATH  FOR  MESSACE  J. 

NEXT  -  PT  HM  AT  (  N  UM  ,  J) 

30  IF  (NEXT  .EQ.  0)  THEN 

RALK  PATH  FOR  MESSACE  J  WAS  NOT  SPECIFIED  OR  WAS 
INCOMPLETE  (DID  NOT  END  ON  A  TERMINATE  NODE). 

PRINT  5 0 ,  J,  NODNAM ( I  ) 

PRINT  *,  '  SUPPLY  RALK  PATH,  OR  MAKE  SURE  PATH 

&  'ENDS  AT  A  TERMINATE  NODE.' 

IFATAL  ■=  IFATAL  +  1 

Et.SE 

C  IF  >  0,  NEXT  NODE  IS  A  REGULAR  NODE.  IF  <  0,  NEXT 

C  NODE  IS  A  TERMINATE  NODE  (MEANINC  THIS  PATH  IS 

C  SUCCESSFULLY  COMPLETED). 

IF  (NEXT  .GT.  0)  THEN 

C  FIND  THE  NEXT  NODE  NUMBER  IN  THE  BALK  PATH  FOR  MESSAGF 

C  J  . 

NEXT  -  PT HMAT(NEXT,  J) 

C  INCREMENT  THE  NUMBER  OF  NODES  IN  THIS  BALK  PATH. 

NOSTEP  -  NOSTEP  +  1 

C  IF  MORE  STEPS  IN  THE  PATH  WAS  USED  THAN  NODES  WERE 

C  DEFINED,  THEN  A  CYCLE  MUST  EXIST  FOR  THIS  PATH 

C  (MESSAGE  J  LOOPS  BACK  UPON  ITSELF). 

IF  (NOSTEP  .GT.  NXTNOD)  THEN 
PRINT  55,  J,  NODNAM ( I ) 

IFATAL  -  I  FATAL  +  1 
CO  TO  20 
END  IF 
CO  TO  30 
E  N  D  I  F 
END  IF 
ENDIF 

20  CONTINUE 

ENDIF 

10  CONTINUE 

50  FORMAT  (’  ERROR — INCOMPLETE  BALK  PATH  FOR  MESSAGE  ',  14, 

A  '  FROM  NODE  ' ,  A 4 ,  ' . ' ) 

55  FORMAT  ('  ERROR — THE  BALK  PATH  FOR  MESSAGE  ',  14, 

A  '  CONTAINS  A  CYCLE  FROM  NODE  ',  A4 ,  '.') 

RETURN 

END 
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SUBROUTINE  CllKUSD 


THIS  SUBROUTINE  VERIFIES  THAT  EACH  NODE  SPECIFIED 
BY  A  NODE  CARD  IS  USED  IN  AT  LEAST  ONE  PATH. 

CALLED  BY: 

MAIN 

SUBROUTINES  CALLED: 

NONE 

FUNCTIONS  CALLED: 

NOME 

INPUT  ARGUMENTS: 

NONE 

OUTPUT  ARGUMENTS: 

NONE 

INPUTS  VIA  COMMON: 

IFATAL 
NXTNOD 
N  XTM SG 
PTHM AT 
NODNAM 

OUTPUTS  VIA  COMMON: 

I  FATAL 

WORKING  VARIABLES: 

I  — DO  LOOP  COUNTER 
J--DO  LOOP  COUNTER 

PARAMETER  ( NO NOD - 1 0 , NOTRM » 1 0 , NOM SG » 1 0 ) 

CHARACTER  CRDTYP*4,  LABRL*5 ,  LABEL2  * A ,  NODNAM  *  A ,  DIST*5,  TRM  NAM  *  4 . 
&  BALKS  * A  ,  DSTN AM  *  5 

COMMON  /COM1/  IFATAL,  NXTNOD,  NXTTRM ,  NXTMSC,  MAXNOD,  MAXTRM  , 

&  MAXMSG,  NOPCAP(2 ,  NONOD),  PTHM AT ( NONOD ,  NOMSG), 

&  CREATE ( 6 ,  NOMSG),  L AS NO D( NOM SG ) ,  NODS TR ( NOM SC ) , 

A  PARMI,  PARM2,  PARM3,  PARMA,  PARM  5 , 

8.  DSTPRC(  NOM  SC  ,  NONOD,  A),  DSTXM  T  (  NOM  SG  ,  NONOD,  A) 

COMMON  / G  OM  2 /  NODN AM ( NO NO D ) ,  DIST(NOMSG),  TRM NAM ( NOTRM ) ,  CRDTYP, 

(.  LABEL,  LABEL2  ,  BALKS  (  NONOD  )  ,  DSTNAM  (  9  ) 

SEARCH  EACH  NODE  I  LOOKING  FOR  A  MESSAGE  J  THAT  USES  NODE  I 
(I.E.,  PTHM  AT ( I , J  )  .NE.  0). 

DO  20,  I  -  l,  NXTNOD 
DO  10,  J  =>  1,  NXTMSC, 

IF  ( PTHM  AT ( I ,  J)  .NE.  0.0)  THEN 
C  THE  NODE  WAS  USED. 

CO  TO  20 
ENDIF 

10  CONTINUE 

PRINT  *,  'ERROR--NODE  ',  NODNAM ( I  )  ,  ’  IS  NOT  USED  IN  A  PATH.' 

PRINT  *,  '  REMOVE  CORRESPONDING  NODE  CARD.’ 

IFATAL  -  IFATAL  +  1 
20  CONTINUE 

RETURN 
END 
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SUBROUTINE  MESS  (LABL,  PRM  1  ,  PRM  2  ,  PRM  3  ,  PRM  4  , 

&  PRM  5,  LABL2  ) 

THIS  SUBROUTINE  HANDLES  MESS  CARDS  BY  SAVING  THE  NECESSARY 
MESSACE  INFORMATION. 

CALLED  BY: 

MAIN 

SUBROUTINES  CALLED: 

NONE 

FUNCTIONS  CALLED: 

NUM  DST 
NUM  NOD 

INPUT  ARGUMENTS: 

LABL--M ESSACE  DISTRIBUTION  NAME 
PRM I  — DISTRIBUTION  PARAMETER  1 
PRM 2  — DISTRIBUTION  PARAMETER  2 
PRM 3--DI STR IBUTION  PARAMETER  3 
PRM4--MESSACE  START  TIME 
PRM5--NUMBER  OF  MESSAGE  RELEASES 
LARL2  — NA'1  E  OF  FIRST  NODE  IN  PATH 
OUTPUT  ARGUMENTS: 

NONE 

INPUTS  VIA  COMMON: 

IFATAL 
NXTM SG 
M  AXM  SC 

OUTPUTS  VIA  COMMON: 

I  F  AT  A  I. 

NXTM  SG 
CREATE 
LAS NOD 
NODSTR 
DIST 

WORKING  VARIABLES: 

NUM  N  —  NODE  NUMBER 

PARAMETER  ( NOMOD-1 0, NOTRM-IO, NOM SC-10) 

CHARACTER  LAB L *  5 ,  LABL2  *4 

CHARACTER  CRDTYP*4,  LA BEL* 5 ,  LABEL2*4,  NODNAM  *4 ,  DIST*5,  TRM  NAM  *  4  . 
&  R  A L K S  *  4  ,  DSTN AM  *  5 

COMMON  / COM  1 /  IFATAL,  NXTNOD,  NXTTRM ,  NXTM  SG ,  MAXNOD,  MAXTRM, 

&  M  AXM  SG ,  NODC AP ( 2 ,  NONOD),  PT HM AT ( N ONOD ,  NOMSG), 

4  CREATE( 6 ,  NOMSG),  LA S NO D ( NOM SG ) ,  NODSTR ( NOM SG ) , 

4  PARMl,  PARM2,  PARM  3  ,  TA  RM  4  ,  PARM5, 

4  DSTPRC( NOMSG,  NONOD,  4),  DS TXM T ( NOM SG ,  NONOD,  4) 

COMMON  /COM  2 !  NODNAM ( NONOD ) ,  DIST(NOMSG),  TRM NAM ( NOTRM ) ,  CRDTYP , 

4  LABEL,  LABEL2 ,  BALKS ( NONOD) ,  DSTNAM ( 9 ) 

C  INCREMENT  MESSACE  COUNT. 

NXTM  SG  -  NXTMSG  +  1 
C  INSURE  NXTMSG  STILL  IN  RANGE. 

IF  (NXTMSG  .CT.  M  AXM  SG  )  THEN 

PRINT  *,  ’ E  R  ROR  —  TOO  MANY  MESSAGES  DEFINED.' 

IFATAL  -  IFATAL  +  1 
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NXTMSC  -  MAXMSG 
LASNOD(tJXTMSC)  -  1 

CO  TO  099 
E  N  D  I  F 

C  VERIFY  LA  B  L  IS  A  VALID  DISTRIBUTION  NAME.  ' 

IF  (NUMDST(LABL)  .CT.  0)  THF.N 
C  VALID  NAME,  SAVE  IT. 

1)1  ST(  NXTM  SC  )  =*  LABI. 

ELSE 

PRINT  *,  ' ERROR  —  ILLEGAL  DISTRIBUTION  SPECIFIED.' 

I  F  AT  A  I.  =  I  FATAL  +  1 
F.  N  D  I  F 

C  SAVE  1ST  PARAMETER  OF  DISTRIBUTION 

CREATE! 1  ,  NXTM  SC  )  =  PRM  1 
C  SAVE  2ND  PARAMETER  OF  DISTRIBUTION. 

CREATE ( 2 ,  NXTM  SC  )  -  PRM  2 
C  SAVE  3RD  PARAMETER  OF  DISTRIBUTION. 

CREATE ( 3  ,  NXTMSC)  =  PRM 3 
C  SAVE  STARTING  TIME  OF  THIS  MESSACE. 

C R E A T E ( 4  ,  NXTMSC)  -  PRM 4 
C  SAVE  THE  NUMBER  OF  MESSAGE  RELEASES. 

CREATE! 5,  NXTMSC)  «  PRM  5 

C  FIND  THE  NODE  NUMBER  OF  THE  FIRST  NODE  IN  THIS  MESSAGE. 

NUMN  -  NUM  NOD!  LABI. 2  ) 

IF  (NUMN  .CT.  0)  THEN 

VALID  NODE  N  UM  BER  -  - 1  N I T I A  L 1 7.  E  THE  LAST  NODE  IN  THE  PATH 
(LASNOD)  AND  THE  FIRST  NODE  IN  THE  PATH  (NODSTR)  TO  NUMN. 
I.ASNOD!  NXTM  SC  )  -  NUMN 
NODSTR(NXTMSG)  -  NUMN 
ELSE 

PRINT  *,  'ERROR  —  UNDEFINED  NODE.' 

PRINT  *,  ’  CORRECT  NODE  NAME  OR  INSERT  CORRESPONDING  ', 

&  ' NODE  CARD  .  ' 

LASNOD(NXTMSC)  -  1 
IFATAL  =  IFATAl.  +  I 
ENDI  F 
999  RETURN 
END 
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SUBROUTINE  N  0 1)  K  (I.ABI.,  PRM  1  ,  PRM  2  ) 

THIS  SUBROUTINE  HANDLES  NODE  CARDS  BY  SAVING  THE  NODE  INFORMATION 

CALLED  RY: 

MAIN 

SUBROUTINES  CALLED: 

NONE 

FUNCTIONS  CALLED: 

NUM  NOD 

INPUT  ARGUMENTS: 

LABL--NAME  OF  NODE  BEINC  DEFINED. 

PRM  1 --MAXIMUM  CAPACITY  OF  NODE 
PRM  2  — NUM  RER  OF  SERVERS 
OUTPUT  PARAMETERS: 

NONE 

INPUTS  VIA  COMMON: 

IFATAL 
NXTNOD 
MAXNOD 
LABEL2 

OUTPUTS  VIA  COMMON: 

IFATAL 
NXTNOD 
NODCAP 
NODNAM 
BALKS 

WORKING  VARIABLES: 

NONE 

PARAMETER  ( N ONOD - 1 0 , NOT RM -1 0 , NOM SC - 1 0 ) 

CHARACTER  L A  B  L  *  5 

CHARACTER  CRDTYP*4,  LABEL*  5 ,  LABEL2  * A ,  NODNAM*4,  DIST*5,  TRMNAM*4. 
A  BALKS  * A ,  DSTNAM  *  5 

COMMON  / C  OM 1 /  IFATAL,  NXTNOD,  NXTTRM ,  NXTMSG,  MAXNOD,  MAXTRM , 

A  HAXHSC,  NO  DC  A  P ( 2 ,  NONOD),  PT HM AT ( NONOD ,  NOMSG), 

A  CREATE(6,  NOMSG),  LA SNOD ( NOM SG ) ,  NODSTR ( NOM SC ) , 

A  PA  RM  1  ,  PA  RM  2  ,  PARM3,  FARM  4  ,  PARM  5  , 

A  DSTPRC( NOMSG ,  NONOD,  4),  DSTXM T ( NOM SG ,  NONOD,  4) 

COMMON  / C  OM  2 /  NODNAM(NONOD) ,  DIST(NOMSG),  TRM  NAM ( NOTRM ) ,  CRDTYP , 

A  LABEL,  LABEL2 ,  B ALKS ( NONOD  )  ,  DS TNAM ( 9 ) 

HAS  THIS  NODE  BEEN  PREVIOUSLY  DEFINED  (AS  INDICATED  BY  A 
VALUE  >  ())? 

IF  (  NUM  NOD  (  1.A  BL  )  .CT.  0)  THEN 

PRINT  *,  'ERROR--N0DE  PREVIOUSLY  DEFINED.’ 

IFATAL  »  IFATAL  +  1 
GO  TO  999 
K  N  D  I  F 

C  INCREMENT  NODE  COUNT. 

NXTNOD  -  NXTNOD  +  1 

C  VERIFY  NODE  COUNT  STILL  IN  RANGE. 

IF  (NXTNOD  .CT.  MAXNOD)  THEN 

PRINT  *,  '  F.  R  ROR  — TOO  MANY  NODES  DEFINED  (  ICNORED  )  .  ' 

NXTNOD  -  MAXNOD 
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IFATAL  -  l  FATAL  +  1 
NXTNOD  -  M  A  X  N  0  D 
GO  TO  9  0*) 

F.ND1F 

C  SAVE  NODF.  NAME. 

NOONAM  (  NXTNOD)  -  LABI. 

C  VERIFY  VALIDITY  OF  MAXIMUM  CAPACITY. 

IF  (PRMI  . LE.  O.O)  THEN 

PRINT  *,  ' ERROR — MAXIM  UM  CAPACITY  MUST  BE  CREATER  THAN  0. 

IFATAL  »  IFATAl.  +  1 
ELSE 

N0DCA1’(1,  NXTNOD)  -  PRMI 
F.  N  D  l  F 

C  NUMBER  OF  SERVERS  MUST  BE  CREATER  THAN  0. 

IF  ( PRM  2  .CT.  0.0)  THEN 
C  SAVE  THE  NUMBER  OF  SERVERS. 

NODC AP ( 2 ,  NXTNOD)  -  PRM2 
ELSE 

PRINT  *,  ' ERROR  —  NUM  BER  OF  SERVERS  MUST  BE  CREATER  THAN  0 

IFATAL  -  IFATAL  +  1 
ENDIF 

C  IS  THIS  NODE  BLOCKED  OR  NO  BALK  NODE  SPECIFIED? 

IF  ( LABEL 2  .EQ.  ’BLOK*  .OR.  LABEL2  .EQ.  ’  ’)  THEN 

C  ITS  BLOCKED  OR  NO  BALK  NODE  SPECIFIED. 

B ALKS ( N  XT  NOD )  -  LABEL2 
ELSE 

C  IS  THE  BALK  NODE  NAME  VALID? 

IF  (NUMH0D(LABEL2 )  .CT.  0)  THEN 
C  ITS  VALID-- SAVE  IT. 

BALKS(NXTNOD)  -  LABEL2 
ELSE 

C  ERROR — ITS  NOT  VALID. 

PRINT  *,  'ERROR — ILLEGAL  BALK  NODE.' 

PRINT  *,  ’  CORRECT  THE  NAME  OR  INSERT 

&  'CORRESPONDING  NODE  CARD.' 

IFATAL  -  IFATAL  +  1 
ENDIF 
ENDIF 

999  RETURN 
END 
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subroutine  path 


c 

C  THIS  SUBROUTINE  HANDLES  PATH  CARDS  BY  SAVING  THE  INFORMATION 

C  NECESSARY  TO  CONSTRUCT  A  PATH. 

C 

C  CALLED  BY: 

C  MAIN 

C  SUBROUTINES  CALLED: 

C  NONE 

C  FUNCTIONS  CAI.LED: 

C  NUMNOn 

C  NUMTRM 

C  INPUT  ARGUMENTS: 

C  NONE 

C  OUTPUT  ARGUMENTS: 

C  NONE 

C  INPUTS  VIA  COMMON: 

C  IFATAL 

C  NXTMSG 

C  PTI1MAT 

C  LAS  NOD 

C  LABEL 

C  OUTPUTS  VIA  COMMON: 

C  IFATAL 

C  PTIIMAT 

C  LA  SHOD 

C  WORKING  VARIABLES: 

C  NUM  M  —  NOD  E  NUMBER 

C  NUMT--TF.RM  I  NATE  NODE  NUMBER 

C 

PARAMETER  ( NONOD - 1 0 , NOTRM - 1 0 , NOM S C * I  0 ) 

CHARACTER  CRDTYP*4,  LABEL*5,  LA  BEL2  *4 ,  NODNAM*4,  DIST*5,  TRMNAM*4 
A  BALKS  *4  ,  D S T N AM  *  S 

COMMON  / COM  1 /  IFATAL,  NXTNOD,  NXTTRM ,  NXTMSC,  MAXNOD,  MAXTRM, 

A  MAXMSC,  NODCAP ( 2 ,  NONOD),  PTHM AT ( NONOD ,  NOMSG), 

A  CREATE ( 6 ,  NOMSG),  LA S NOD ( NOM S C ) ,  NODS TR ( NOM SG ) , 

A  PARMl,  P  ARM  2  ,  PARM  3  ,  P  ARM  4  ,  PARM5, 

A  DSTPRC( N  OM  S  G ,  NONOD,  4),  DS T XM T ( NOM SG ,  NONOD,  4) 

COMMON  / COM  2 /  NODN AM (NONOD) ,  DIST(NOMSG),  TRM NAM ( NOTRM ) ,  CRDTYP, 

A  LABEL,  LABEL2,  B ALKS ( NONOD ) ,  DSTNAM ( 9 ) 

C  FIND  NODE  NUMBER  FOR  THIS  LABEL. 

NUMN  >  NUM  NOD(  LABEL) 

C  FIND  TERMINATE  NODE  NUMBER  FOR  THIS  LABEL. 

NUM T  »  NUMTRM  (  LABEL) 

IF  BOTH  NUMN  AND  NUM  T  ARE  0,  THEN  THIS  LABEL  IS  NEITHER  A 
TERMINATE  NOR  A  REGULAR  NODE. 

IF  (NUMN  .F.Q.  0  .AND.  NUM  T  .EQ.  0)  THEN 
PRINT  *,  'ERHOR--UNDEFINED  NODE.’ 

PRINT  *,  ’  CORRECT  NODE  NAME  OR  INSERT  CORRESPONDING  ’, 

A  ' NODE  OR  TERM  CARD. ' 

IFATAL  -  IFATAL  +  1 
ELSE 

C  VERIFY  A  PATH  HAS  NOT  BEEN  PREVIOUSLY  DEFINED  AT  THIS  LOCATION 

IF  ( PTHM AT(LASNOD(NXTMSG) ,  NXTMSC)  .NE.  0.0)  THEN 
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PRINT  *,  ' ERROR  —  DUPLICATE  PATH  DEFINITION.*. 

PRINT  *,  *  (A  PATH  FOR  THIS  MESSAGE  At  THIS  NODE  WAS 

A  ,  'PREVIOUSLY  SPECIFIED.)' 

1FATAL  -  IFATAL  +  1 
ELSE 

IF  (Nl)MN  .CT.  0)  THEN 

C  A  REGULAR  NODE — MOVE  THIS  NODE  NUMBER  INTO  THE  PATH 

C  MATRIX  (PTIIMAT). 

PTIIM  AT  (  L  A  S  NOD  (  N  XTM  SC  )  ,  NXTMSC)  -  NUMN 
C  THIS  NODE  NOW  BECOMES  THE  PREVIOUS  (LAST)  NODE  IN  THIS 

C  PATH. 

LASNOD(NXTMSG  )  «  NUMN 
ELSE 

A  TERMINATE  NODE  — MOVE  THE  NEGATIVE  OF  THE  TERMINATE  NOD’ 
NUMBER  INTO  THE  PATH  MATRIX  (PTHMAT). 

PTIIM  AT(  LASNOD(NXTM  SC  )  ,  NXTMSC)  -  -NUMT 
C  THE  TERMINATE  NODE  NOW  BECOMES  THE  PREVIOUS  (LAST)  NODE 

C  IN  THIS  PATH. 

!,  A  S  N  0  D  (  NXTM  SC  )  -  -NUMT 
E  N  I)  I  F 
ENOI  F 
F.  N  D  I  F 
RETURN 
F.NO 
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SUBROUTINE  PR  OC  (  LB  L  ,  PRM  1  ,  PRM  2  ,  PRM  3  ) 

THIS  SUBROUTINE  HANDLES  PROC  CARDS  BY  SAVINC  THE  INFORMATION 
NECESSARY  FOR  PROCESSING  TIMES. 

C 

C  CALLED  BY: 

C  MAIN 

C  SUBROUTINES  CALLED: 

C  NONE 

C  FUNCTIONS  CALLED: 

C  NUMDST 

C  INPUT  ARGUMENTS: 

C  LBL  —  PROCESSING  TIME  DISTRIBUTION  NAME 

C  PRM1  —  1ST  PARAMETER  OF  DISTRIBUTION 

C  PRM  2  —  2ND  PARAMETER  OF  DISTRIBUTION 

C  P RM  3  —  3RD  PARAMETER  OF  DISTRIBUTION 

C  OUTPUT  ARGUMENTS: 

C  NONE 

C  INPUTS  VIA  COMMON: 

C  I F  AT  A  L 

C  NXTMSC 

C  LASNOD 

C  OUTPUTS  VIA  COMMON: 

C  IFATAL 

C  DSTPRC 

C  WORKINC  VARIABLES: 

C  NUM  —  DISTRIBUTION  RATE  NUMBER 

C 

PARAMETER  ( NONOD- I  0 , NOTRM - 1 0 , NOM S C - 1 0 ) 

CHARACTER  LBL*  5 

CHARACTER  CRDTYP*4,  LABEL*  5 ,  LABEL2*4 ,  NODNAM  *  4 ,  DIST*5,  TRM  N AM  *  4  , 
4  BALKS*4,  D  S  T  N  AM  *  5 

COMMON  / C  OM  1  /  IFATAL,  NXTNOD,  NXTTRM ,  NXTMSC,  MAXNOD,  MAXTRM, 

4  MAXMSG,  NODCAP.(2,  NONOD),  PTHMAT(NONOD,  NOMSC), 

A  CREATE ( 6 ,  NOMSC),  LA S NOD ( NOM SG ) ,  NODSTR(NOMSG) , 

4  r ARM  1  ,  P ARM  2  ,  PARM3,  PARM4,  FARM  5, 

4  DSTPRC(N  OM  SC,  NONOD,  4),  DS TXM T ( NOM S C ,  NONOD,  4) 

COMMON  / C  OM  2 /  NOD N AM ( N 0 NOD ) ,  DIST(NOMSC),  TRM NAM ( NOTRM ) ,  CRDTYP, 

4  LABEL,  I.ABEL2,  BALKS  (  NONOD  )  ,  DSTN  AM  (9) 

C  FIND  THE  DISTRIBUTION  NUMBER. 

NUM  »  NUMDST(LBL) 

C  IS  DISTRIBUTION  VALID  (I.E.,  >  0)? 

IF  (NUM  .EQ.  0)  THEN 

PRINT  *,  ' ERROR — I LLECAL  DISTRIBUTION  SPECIFIED.' 

IFATAL  =*  IFATAL  +  1 
ELSE 

C  VALID,  SAVE  DISTRIBUTION  NUMBER. 

DSTPRC( NXTMSC,  LA S NOD ( N XTM SC ) ,  1)  -  NUM 
C  SAVE  DISTRIBUTION  PARAMETER  1. 

DSTPRC( NXTM SC ,  LASNOD(NXTMSG)  ,  2)  -  PRMl 
C  SAVE  DISTRIBUTION  PARAMETER  2. 

DSTPRC(NXTMSC,  LASNOO( NXTM SC  )  ,  3)  -  PRM  2 
C  SAVE  DISTRIBUTION  PARAMETER  3. 

DSTPRC( NXTMSC ,  LASNOD ( NXTM SC )  ,  4)  -  PRM  3 
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SUP,  ROUT  INK  READ 


C 

C  THIS  SURROUT  INK  RF.AOS  THE  I  N TUT  DATA  DECK  FROM  FILE  20. 

0 

C  CALLED  B  Y  : 

C  MAIN 

C  SUBROUTINES  CALLED: 

C  NONE 

C  FUNCTIONS  CALLED: 

C  K  0  N  F. 

C  INPUT  A  R  CUM K NTS : 

C  NONE 

OUTPUT  APCIIM  ENTS  : 

NONE 

INPUTS  VIA  COMMON: 

IF  ATAT. 

OUTPUTS  VIA  COMMON: 

IFATAL 
PA  RM  1 
PARM  2 
PARM  3 
PARM  4 
PARM  *> 

CRDTY  P 
LABEL 
LABEL?. 

WORKING  VARIABLES: 

CARD67--CARD  COLUMNS  6-72  OF  THE  INPUT  CARD 

PA  R  AM  K  TE  R  (  N O  NO  D  =  1 0 , NOTRM  * l 0 , NOM  SC  “l  0  ) 

CHARACTER  CARD(>7*67 

CHARACTER  CRPTYP*4,  LA  BE  L  *  5 ,  LA  BE  L2  *4 ,  NO  DNAM  *4 ,  DIST*5,  TRM  NAM  *  4 . 
4  B  A L K  S  * 4  ,  DS  T NAM  *  5 

COMMON  /COM  1 /  IFATAL,  NXTNOD,  N XT TRM  ,  NXTM SG ,  MAXNOD,  MAXTRM, 

&  MAXMSG,  N0DCAP(2,  NONOD),  PT IIM  AT(  NONOD ,  NOMSC), 

6  CREATE  / 6  ,  NOMSC),  LA  S  NO  D  (  NOH  SC  )  ,  NO  DS  TR  (  NOM  S  C  )  , 

&  PARM  l,  PARM  2,  PARM  3,  PARM  4,  PA  RM  6  , 

&  OSTPRC( NOM SC ,  NONOD,  4),  DSTXM T ( NOM SG ,  NONOD,  4) 

COMMON  /  G  OM  2  /  N  0 1)  N  AM  (  N  0  NO  D  )  ,  DIST(NOMSC),  TRM  NAM  (  NOTRM  )  ,  CRDTYP, 

&  LABEL,  LABE  1,2  ,  B  ALK  S  (  NONOD  )  ,  DS*TNAM(9) 

READ  A  CARD. 

READ  (10,  10,  F.NP  =  999)  CRDTYP,  CARD67 

PRINT  30,  CRDTYP,  CARDS  7 

RE-READ  EACH  CARD  RASED  UPON  THE  CARD  TYPE  TO  OBTAIN  THE  NECESSARN 
INFORMATION  FOR  THAT  PARTICULAR  CARD  TYPE. 

IF  (CRDTYP  .  F.O .  ’MODE')  THEN 
BACKSPACE  10 

READ  (10,  20,  F.RR-88B)  LAREL,  PA  RM  2 ,  PA  RM  3 , 

4  LA  RE  1.2 

ELSE  IF  (CRDTYP  .EO.  'TERM'  .OR.  CRDTYP  . EQ .  'PATH')  THEN 
BACKSPACE  10 

READ  (10,  40,  ERR-888)  LABEL 
ELSE  IF  (CRDTYP  .EQ.  ’MESS')  THEN 
BACKSPACE  10 
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RF.AD  (10,  10,  ERR-88R)  LABEL,  PARMl,  PA  RM  2  ,  PA  RM  3 

4  FARM  4,  P  A  RM  5  ,  LABEL2 

ELSE  IF  ( CRDTYP  .EQ.  'PROC'  .OR.  CRDTYP  .EQ.  'XMIT') 


BACKSPACE  10 

READ  (10,  70,  ERR»888)  LABEL,  PA  RM  3 ,  PARM4,  PARMl 
ELSE  IF  (CRDTYP  .EQ.  'BALK')  THEN 
BACKSPACE  10 

READ  (10,  <10,  ERR  =  888)  LABEL,  PARMl 

ELSE  IF  (CRDTYP  .NE.  'END  *)  THEN 
C  AN  INVALID  CARD  TYPE  WAS  SPECIFIED. 

PRINT  100 

IFATAL  =  IFATAL  +  1 


F.  N  D I  F 
CO  TO 

1000 

888 

PRINT 

no 

CRDTYP 

»  'ERR  ' 

IFATAL 

»  IFATAL  +  1 

1000 

RETURN 

999 

PRINT 

120 

10 

STOP 
FORM  AT 

> 

> 

O' 

^4 

20 

FORM  AT 

(5X,  A  5 ,  2F10.5,  A4) 

30 

format 

(IX, A4,  A67) 

AO 

FORM  AT 

(  5  X  ,  A  5  ) 

50 

FORM  AT 

( 5  X ,  A  5 ,  5F10.5,  A4) 

70 

FORM  AT 

(  5  X  ,  A  5 ,  3F10.5) 

90 

form  at 

(5X,  A  5 ,  F10.5) 

100 

FORM  AT 

('  F.  RR0R--I  H  VALID  CARD  TYPE 

110 

FORM  AT 

('  ERR OR --CONVERSION  ERRORS 

4  7  X  , 

'CHECK  INPUT  FORMATS.') 

120 

FORM  AT 

('  UNEXPECTED  END-OF-F  ILF.  . 

END 

1  ) 

OCCURRED.  '  ,  /  , 
JOB  TERMINATED 


) 


THEN 
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SUBROUTINE  TERM  ( LABE) 

C. 

C  THIS  SUBROUTINE  HANDLES  TERM  CARDS  BY  SAVINC  THE  TERMINATE  NODE 

C  NAME. 

C 

C  CALLED  BY: 

C  MAIN 

C  SUBROUTINES  CALLED: 

C  NONE 

C  FUNCTIONS  CALLED: 

C  NJJMTRM 

C  INPUT  ARGUMENTS: 

C  LAHL--TERM I  NATE  NODE  NAME 

C  OUTPUT  ARGUMENTS: 

C  NONE 

C  INPUTS  VIA  COMMON: 

C  I  FATAL 

C  HXTTRM 

C  MAXTRM 

C  OUTPUTS  VIA  COMMON: 

C  I  FATAL 

C  NXTTRM 

C  T KM  NAM 

C  WORKING  VARIABLES: 

C  NONE 

C 

PARAMETER  ( NONOD- 1  0 , NOTRM -1 0 , NOM SG - 1 0 ) 

CHARACTER  LAB L *  5 

CHARACTER  CRDTYP*4,  LABF,L*5  ,  LABEL2*4,  NODNAM*4,  DIST*5,  TRM  N  AM  *  A 
&  BALKS*A,  D  S  T  N  AM  *  5 

COMMON  /COMI/  I  FATAL,  NXTNOD ,  NXTTRM,  NXTMSG,  MAXNOD,  MAXTRM, 

&  MAXMSG,  NODCAP  (  2  ,  NONOD),  PTIIM  AT  (NONOD ,  NOMSG), 

4  CREATE  (f.  ,  NOMSG),  L  A  S  NO  D  (  NOM  S  G  )  ,  NODS  TR  (  NOM  SC  )  , 

&  PARM1,  PARM2,  PARM3,  PARM  4 ,  PARM  5 , 

&  DSTPRC( NOM SG,  NONOD,  4),  DSTXM T ( NOM SG ,  NONOD,  4) 

COMMON  /COM  2 /  NODNAM ( NONOD ) ,  DIST(NOMSC),  TRM NAM ( NOTRM ) ,  CRDTYP , 

4  LABEL,  LABEL2 ,  BALKS ( NONOD ) ,  DSTNAM (  9  ) 

C  HAS  THIS  TERMINATE  NODE  BEEN  PREVIOUSLY  DEFINED? 

IF  (NUMTRM(LABL)  .CT.  0)  THEN 

PRINT  *,  ’ ERROR — TERM  PREVIOUSLY  DEFINED.' 

IFATAL  -  IFATAL  +  1 
ELSE 

C  INCREMENT  TERMINATE  NODE  COUNT. 

NXTTRM  -  NXTTRM  +  1 
C  IS  COUNT  S TILL  IN  RANGE? 

IF  (NXTTRM  .CT.  MAXTRM)  THEN 

PRINT  *,  ' E  R  ROR - -TOO  MANY  TERMS  DEFINED  ( ICNORED ) . * 

IFATAL  »  IFATAL  +  1 
NXTTRM  -  MAXTRM 
ELSE 

C  SAVE  THIS  TERMINATE  NODE  NAME. 

TRM  N  AM (NXTTRM )  -  LABL 
END  I  F 
END  I  P 


u 


return 

END 
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SUBROUTINE  XMIT  (LRL,  PRM  1  ,  PRM2,  PRM  3 ) 


C 

C  THIS  SUBROUTINE  HANDLES  XMIT  CARDS  RY  SAVINC  THE  INFORMATION 

C  NECESSARY  FOR  TRANSMIT  TIME. 

C 

C  CALLED  RY: 

C  MAIN 

C  SUBROUTINES  CALLED: 

C  NONE 

C  FUNCTIONS  CALLED: 

C  NUMDST 

C  INPUT  ARGUMENTS: 

C  LBL--TRANSM IT  TIME  DISTRIBUTION  NAME 

PRM 1  —  1ST  PARAMETER  OF  DISTRIBUTION 
PRM  2  —  2ND  PARAMETER  OF  DISTRIBUTION 
PRM  3  —  3RD  PARAMETER  OF  DISTRIBUTION 
OUTPUT  ARGUMENTS: 

NONE 

C  INPUTS  VIA  COMMON: 

C  IFATAL 

C  NXTMSG 

C  LASNOD 

C  OUTPUTS  VIA  COMMON: 

C  IFATAL 

C  OSTXMT 

C  WORKING  VARIABLES: 

C  NUM  — DISTRIBUTION  RATE  NUMBER 

C 

PARAMETER  ( NO NO D* 1 0 , NOTRM -l 0 , NOM SG «1 0 ) 

CHARACTER  LB  L*  5 

CHARACTER  CRDTYP*4,  LABEL*  5 ,  LABE  L2  *4 ,  NODNAM*4,  DIST*5,  TRM  NAM*4  , 
&  BALKS  *4  ,  DS  TNAM  *  5 

COMMON  /  C  OM  I  /  IFATAL,  NXTNOD,  IJ  XT  TRM  ,  NXTMSG,  MAXNOD,  MAXTRM, 

A  MAXMSG,  NODC  AP(  2  ,  NONOD),  PT  HM  AT  (  N  ONOD  ,  NOM  SG  )  , 
b  CREATE  (6  ,  NOMSG),  LAS  NOD  (NOM  SC  )  ,  NODSTR(NOMSG)  , 

&,  PARM1,  PARM2,  P A  RM  3  ,  FA  RM  4  ,  PARM5, 

&  DSTPRC(NOM SG,  NONOD,  4),  DS TXM T ( N OM S G ,  NONOD,  4) 

COMMON  /COM  2  /  N  ODNAM  (  N  ONOD  )  ,  DIST(NOMSC),  TRM  NAM  (  NOTRM  )  ,  CRDTYP  , 

&  LABEL,  EABEL2,  B ALKS ( NONOD ) ,  DS  TNAM ( 9  ) 

C  FIND  THE  DISTRIBUTION  NUMBER. 

NUM  -  NUMDST(LBE) 

C  IS  DISTRIBUTION  NUMBER  VALID? 

IF  (NUM  .EO.  0)  THEN 

PRINT  *,  ' ERROR — ILLEGAL  DISTRIBUTION  SPECIFIED.' 

IFATAL  -  IFATAL  +  1 
ELSE 

C  SAVE  THE  DISTRIBUTION  NUMBER. 

DSTXMT(NXTMSC,  LA  S  NOD  (  NXTM  S  G  )  ,  1)  -  NUM 

C  SAVE  PARAMETER  1  OF  THE  DISTRIBUTION. 

DSTXMT (NXTM  SC ,  LA S NOD ( N XTM SG  )  ,  2)  -  PRMI 
C  SAVE  PARAMETER  2  OF  THE  DISTRIBUTION. 

DSTXMT(NX«TMSC,  LASNOD(NXTMSC)  ,  3)  -  PRM  2 
C  SAVE  PARAMETER  3  OF  THE  DISTRIBUTION. 

DSTXMT(NXTMSC,  LA SN OD ( N XTM SG ) ,  4)  -  PRM 3 
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FUNCTION  NMMOST(NAME) 

C 

THIS  FUNCTION  RETURNS  THE  DISTRIBUTION  NUMRER  FOR  NAME  (IF 
A  VALID  DISTRIBUTION  NAME)  OR  0  (IF  INVALID). 

CALLED  BY: 

B  L  00  UT 

m  r.  s  s 
c  rr  or. 

C  X‘1  I  T 

C  SUBROUTINES  CALLED: 

C  NONE 

C  FUNCTIONS  CALLED: 

C  HON  Iv 

C  INPUT  A ROHM  ENTS : 

C  NAMF.  —  DISTRIBUTION  NAME 

C  OUTTUT  ARC  UM  F.  NT  S  : 

C  NONE 

C  INPUTS  VIA  COMMON: 

C  DSTN AM 

C  OUTPUTS  VIA  COMMON: 

C  NONE 

C  WORKING  VARIABLES: 

C  I  — DO  LOOP  COUNTER 

C 

PARAMETER  ( NO NOD* 1 0 , NOTRM - 1 0 , NOM SC -1 0 ) 

CHARACTER  NAME *5 

CHARACTER  C  R  DT  Y  P  *  A ,  LA  BE  L*  5 ,  LA  B  E  L  2  *  A ,  NOD NAM  *  A ,  DIST*5,  TRM  NAM  *  A 
&  BALK  S  *  A  ,  DS  TNAM  *  S 

COMMON  /  C  OM  1  /  I  FATAL,  NXTNOD,  N  XT  TRM  ,  NXTM  SG  ,  MAXNOD,  MAXTRM, 

&  MAXMSC,  NO  DC  A  P ( 2 ,  NONOD),  PT HM AT ( N ONOD ,  NOM SC ) , 

&  C  R  F.  A  T  F.  (  ft  ,  NOM  SC),  LASNOD  (  NOM  SC  )  ,  NODS  TR  (  NOM  SC  )  , 

A  PARM1,  P  A  RM  2  ,  TARM1,  PARMA,  PA  RM  5  , 

A  DSTPRC(NOMSG,  NONOD,  A),  DS TXM T ( N OM S C ,  NONOD,  A) 

COMMON  /COM  2 /  NODNAM ( NONOD ) ,  DIST(NOMSC),  TRM NAM ( NOTRM ) ,  CRDTYP, 

A  LABEL,  LABEL2,  B ALKS ( NONOD ) ,  DS  TNAM (  9  ) 

C  ESTABLISH  DEFAULT  RETURN  VALUE. 

NUMDST  «  0 
DO  1 0  I  -  1  ,  9 

C  IF  FOUND,  RETURN  I. 

TF  (NAME  .EQ.  DSTN AM (I  ))  THEN 
NUMDST  -  I 
CO  TO  20 
F.  N  0 1  F 

10  CONTINUE 

20  RETURN 

END 
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o  o  n  n  r>  .o  n  n  n  n  n  n  ~s  o 


FUNCTION  HUM NOD( NOPE ) 

C 

C  THIS  FUNCTION  RETURNS  THE  NODE  NUMBER  FOR  NODE  (IF  THE  NODE  HAS 

C  BEEN  PREWOUSI.Y  DEFINED)  OR  0  (IF  UNDEFINED). 

C 

C  CALLED  BY: 

C  MAIN 

C  CHKBI.K 

C  BALK 

C  M  K  S  S 

C.  NOD !'. 

C  PATH 

C  SUBROUTINES  CALLED: 

NONE 

FUNCTIONS  CALLED: 

NONE 

INPUT  ARGUMENTS: 

NODE --NODE  NAME 
OUTPUT  ARGUMENTS: 

NONE 

INPUTS  VIA  COMMON: 

M AXNOD 
NODNAM 

OUTPUTS  VIA  COMMON: 

NONE 

WORKINC  VARIABLES: 

I --DO  LOOP  COUNTER 
C 

PARAMETER  ( H ONOD  =  1 0 , NOTRM - l 0 , N OM SC - I  0 ) 

CHARACTER  NODE *4 

CHARACTER  CR0TYP*4,  LABE  L*4  ,  LABF.L2*4,  N0DNAM*4,  DIST*5,  TRMNAM*4 
i,  BALKS*  4,  DS  TNAM  *  5 

COMMON  / COM  1  /  IFATAL,  NXTNOD,  NXTTRM,  NXTMSC,  MAXNOP,  MAXTRM  , 

&  MAXMSC,  NO  DC  A  P  (  2  ,  NONOD),  PT  HM  AT  (  N  ONOD  ,  NOMSG), 

&  C  RF.  AT  F.  (  6  ,  NOMSC),  LA  S  NOD<  NOM  SC  )  ,  NO  DS  TR  (  NOM  SG  )  , 

&  PARMl,  PARM2,  PARM3,  PARM  4 ,  P  A  RM  5 , 

4  DSTPRC( NOM SG ,  NONOD,  4),  DS TXM T ( N OM S G ,  NONOD,  4) 

COMMON  /  C  OM  2  /  N  OD  H  AM  (  N  ONO  D  )  ,  DIST(NOMSC),  TRMN  AM  (NOTRM)  ,  CRDTYP, 

A  LABEL,  I.ABF.L2,  B  ALKS  (  NONOD  )  ,  DS  TNAM  (  9  ) 

C  ESTABLISH  DEFAULT  RETURN  VALUE. 

NUMNOD  -  0 

DO  10,  I  =  1  ,  M  AXNOD 
C  IF  FOUND,  RETURN  I. 

TF  (NODE  .  F.Q .  NODNAM(I))  THEN 

NUMNOD  -  I 
GO  TO  20 
ENDIF 

10  CONTINUE 

20  RETURN 

END 
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o  n  n  r>  n  n  n  n  r>  r>  n  o  n  n  r> 


FUNCTION  NUMTRM  (NODE) 

C 

C  Til  IS  FUNCTION  RETURNS  THE  TERMINATE  NODE  NUMBER  FOR  NODE  (IF 

C  THE  TERMINATE  NODE  HAS  BEEN  DEFINED)  OR  0  (IF  UNDEFINED). 

C 

C  CALLED  BY: 

C  MAIN 

C  PATH 

C  T  F.  RM 

SUBR  OUT  I  Uf.S  CALLED: 

NONE 

FUNCTIONS  CALLED: 

NONE 

INPUT  ARCUMENTS: 

NODE --TERM  I  NATE  NODE  NAME- 
OUTPUT  ARCUMENTS: 

NONE 

INPUTS  VIA  COMMON: 

M  AXTRM 
TRM NAM 

OUTPUTS  VIA  COMMON: 

NONE 

WORKING  VARIABLES: 

I --DO  LOOP  COUNTER 

PA R AM E TER  ( N ONO D« 1 0 , NOT RM  =1 0 , NOM  SG- 1 0 ) 

CHARACTER  N0DE*4 

CHARACTER  CRDTYP*4 ,  LA  BE  L*  5  ,  LA  BE  L2  * A ,  NODNAM*4,  DIST*5,  T  RM  N  AM  * / 
&  B  A  L  K  S  *  4  ,  DSTMAM  *  S 

COMMON  / C  OM l /  IFATAL,  NXTNOD,  NXTTRM  ,  NXTM SC ,  MAXNOD,  M AXTRM , 

&  MAXMSC,  NODC  AP  (  2  ,  NONOD),  PT  11M  AT  (  NONOD  ,  NOM  SC  )  , 

&  C R F.  A T  E  (  6  ,  NOM  SC  )  ,  LA  SNOD  (  NOM  SC  )  ,  NODS  TR  (  NOM  S  G  )  , 

A  PARMl,  PARM2,  P  A  RM  3  ,  PARMA,  PA  RM  5  , 

A  DSTPRC(  NOM  SC,  MONOD,  A),  DS  T  XM  T  (  N  OM  SG  ,  NONOD,  A) 

COMMON  /  C  OM  2  /  N  0  DNAM  (  NO  NOD  )  ,  DIST(NOMSG),  TRM  NAM  (  NOTRM  )  ,  CRDTYP, 

A  LABEL,  LABEL2 ,  B ALKS ( NONOD ) ,  DS  TNAM ( 9 ) 

C  ESTABLISH  DEFAULT  RETURN  VALUF.. 

N  UM  T  RM  -  0 
DO  10  I  -  l,  M A XT  RM 

C  IF  FOUND,  RETURN  I. 

IF  (NODE  .EQ.  TRMNAM(I))  THEN 
NUMTRM  -  I 
CO  TO  20 
ENDIF 

10  CONTINUE 

20  RETURN 

END 
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Appendix  B;  Operating  Instructions 


Introduction 

The  SLAM  Pre-Processor  is  designed  to  operate  in  a  batch  node,  with 
card  or  card  image  inputs  fron  file  10.  Eight  legal  card  types  describe 
the  network  to  be  simulated,  and  the  flow  of  messages  through  the 
network. 

Card  Types 

The  eight  legal  card  types  are  BALK,  END,  MESS,  MODE,  PATH,  PROG, 
TERM,  and  XMIT.  Each  of  these  are  described  in  more  detail  below. 
Samples  of  each  card  type  may  be  found  in  Appendix  E. 

BALK  Card.  When  the  capacity  of  a  node  has  been  exceeded,  a  balk 
node  may  be  specified  (more  details  concerning  balking  may  be  found  in 
the  description  of  the  NODE  card).  A  BALK  card  is  used  to  define  the 
beginning  of  a  balk  route  specification  (the  route  to  be  taken  should  a 
node's  capacity  be  exceeeded)  by  specifying  the  name  of  the  node  for 
which  a  balk  route  is  being  provided,  and  the  message  number  for  which 
the  route  applies. 

END  Card.  An  END  card  marks  the  end  of  the  SLAMPP  input  deck. 

HESS  Card.  A  MESS  card  marks  the  beginning  of  a  message 
description  and  defines  the  message  arrival  rate,  the  time  of  the  first 
message  arrival,  the  number  of  message  releases  (number  of  messages  to 
be  created),  and  the  name  of  the  first  node  on  the  message  path. 

NODE  Card.  A  NODE  card  defines  a  node  (by  name),  its  maximum 
capacity,  the  number  of  servers  (the  number  of  nessages  which  may  be 
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processed  at  the  sane  tine)  at  this  node,  and  balking  or  blocking 
infornation. 

When  a  message  arrives  at  a  node  whose  queue  is  at  its  maximum 
capacity,  cne  of  three  actions  nay  occur.’  the  message  nay  balk,  the 
message  nay  block,  or  the  message  may  be  lost.  If  balking  is  specified, 
the  message  will  go  to  an  alternate  (balk)  node.  If  blocking  is 
specified,  the  message  "backs  up"  in  the  network  prior  to  the  node  and 
waits  until  a  message  leaves  the  node,  at  which  tine  it  moves  into  the 
node.  If  neither  balking  nor  blocking  is  specified,  the  message  will 
sinply  be  lost. 

PATH  Card.  A  PATH  card  specifies  the  name  of  the  node  which  is 
next  in  the  path. 

PROC  Card.  A  PROC  card  describes  the  anount  of  time  a  message 
takes  to  be  processed  prior  to  leaving  a  node. 

TERM  Card.  A  TERM  card  defines  (by  name)  those  nodes  at  which  a 
message  may  leave  the  network,  called  "terminate  nodes." 

XI* IT  Card.  An  XMIT  card  describes  the  amount  of  time  it  takes  to 
transmit  a  message  to  the  next  node  on  the  path  after  a  message  has  been 
processed. 

Distribution  Rates 

Three  card  types  (HESS,  PROC,  and  XMIT)  allow  the  user  to  specify  a 
time  duration.  In  the  case  of  the  MESS  card,  the  time  is  the  time 
between  message  creations  while,  for  PROC  and  XMIT,  it  is  the  time  for 
processing  and  transmitting  a  message,  respectively. 

SLAMPP  will  recognize  nine  distributions  as  valid.  Each 
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distribution  requires  from  one  to  three  paraneters,  which  should  be 
input  in  the  order  given.  These  are  described  below  (Pritsker,  1979; 
528-514). 

BETA.  Beta  distribution  with  two  paraneters:  Theta  and  phi. 

CONST.  Constant  duration  with  one  parameter:  length. 

EXPON .  Exponential  distribution  with  one  parameter:  mean. 

GAHA.  Gamma  distribution  with  two  paraneters:  Beta  and  alpha. 

NPSSN .  Poisson  distribution  with  one  parameter:  nean. 

RLQGN.  Lognormal  distribution  with  two  paraneters:  nean  and 

standard  deviation. 

RNORH.  'formal  distribution  with  two  paraneters:  mean  and  standard 
deviation. 

TRIAG.  Triagonal  distribution  with  three  parameters:  interval  low 
value,  node,  and  interval  high  value. 

UlfFRH.  Uniform  distribution  with  two  paraneters:  interval  low 

value  and  interval  high  value. 

Input  Formats 

Each  input  card  consists  of  a  card  type,  plus  (depending  upon  card 
type)  up  to  seven  additional  data  areas.  Regardless  of  card  type,  each 
data  area  (or  field)  is  located  in  the  same  card  columns.  Field  one  is 
in  columns  1-4  and  field  two  in  6-10,  while  the  remaining  fields  begin 
in  columns  11,  21,  31,  41,  $1,  and  6l,  and  are  each  10  columns  wide. 

Two  types  of  data  nay  be  placed  within  each  field:  alphanumeric  or 
numeric.  Alphanumeric  data  must  be  left  justified  within  the  field. 
All  numeric  data  is  input  as  real  values,  and  may  fall  any  place  within 
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a  field;  however,  a  decimal  point  must  be  explicitly  included  *ith  the 
number.  Thus,  the  number  "1"  should  be  entered  as  "1."  or  "1.0".  Only 
the  first  five  decimal  places  are  significant. 

Although  each  numeric  field  should  be  entered  as  a  real  value  (to 
keep  all  data  field  formats  consistant  for  all  card  types),  some  values 
are  internally  converted  to  integers  by  truncation.  Therefore,  if  the 
data  item  is  listed  as  "integer,"  ensure  that  no  decimal  places  are 
included, 

The  format  for  each  of  the  eight  card  types  is  shown  below.  The 
number  within  parenthesis  is  the  field  number  associated  with  that  data 
item. 

BALK.  (l)  Card  type  key  word  "BALK".  (2)  Name  of  the  node  (not  a 
terminate  node)  for  which  a  balk  route  is  being  specified.  This  node 
name  should  have  appeared  as  a  balk  node  on  a  NODE  card.  (3)  The 
integer  message  number  for  which  a  balk  route  is  being  specified. 
Message  numbers  are  assigned  sequentially  (beginning  with  one)  in  the 
order  found  in  the  SLAHPP  input  deck  (see  the  section  on  message 
numbering  later). 

END,  (l)  Card  type  keyword  "END". 

HESS,  (l)  Card  type  keyword  "HESS".  (2)  Distribution  name  for  the 
message  creation  rate.  (3)  Parameter  one  of  the  distribution.  (4) 
Parameter  two  of  the  distribution  (if  only  one  parameter  is  required, 
enter  zero).  (5)  Parameter  three  of  the  distribution  (if  only  one  or 
two  parameters  are  required,  enter  zero).  (6)  The  integer  time  of 
creation  of  the  first  message,  (7)  The  integer  number  of  messages  to  be 
created.  (0)  The  name  of  the  first  node  in  this  message's  path. 
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HOPE.  (l)  Card  type  keyword  "HOPE".  (2)  The  name  of  the  node 
being  defined  (four  or  fewer  characters).  (3)  The  integer  maximum 
capacity  of  this  node  (the  maximum  number  of  messages  which  may  be 
waiting  at  this  node  at  any  one  time).  (4)  The  integer  number  of 
servers  at  this  node  (the  maximum  number  of  messages  which  nay  be 
processed  concurrently) .  (5)  Balking  or  blocking  information.  If 
balking  is  to  occur,  place  the  name  of  the  node  to  which  messages  should 
balk  if  maximum  capacity  is  exceeded.  If  blocking  is  to  occur,  place 
the  keyword  "BLOK"  into  this  field.  If  neither  balking  or  blocking  is 
desired  (meaning  that  an  arriving  message  will  be  lost  if  maximum 
capacity  has  been  reached),  leave  this  field  blank. 

PATH,  (l)  Card  type  keyword  "PATH”.  (2)  The  name  of  the  next  node 
along  this  message  or  balk  route's  path. 

PROC.  (l)  Card  type  keyword  "PROC".  (2)  The  distribution  name  for 
the  processing  time  at  this  node.  (3)  Parameter  one  of  the 
distribution.  (4)  Parameter  two  of  the  distribution  (if  only  one 
parameter  is  required,  enter  zero),  (5)  Parameter  three  of  the 
distribution  (if  only  one  or  two  parameters  are  required,  enter  zero). 

TERM .  (l)  Card  type  keyword  "TERM".  (2)  The  name  (four  or  fewer 
characters)  of  the  terminated  node  being  declared. 

XMIT .  (l)  Card  type  keyword  "XMIT" .  (2)  The  distribution  name  for 
the  transmission  time  at  this  node.  (3)  Parameter  one  of  the 
distribution.  (4)  Parameter  two  of  the  distribution  (if  only  one 
parameter  is  required,  enter  zero).  (5)  Parameter  three  of  the 
distribution  (if  only  one  or  two  parameters  are  required,  enter  zero). 
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Building  the  Input  Deck 

The  input  deck  can  be  divided  into  four  catagories,  which  are 
described  below.  The  order  of  these  descriptions  is  the  sane  as  the 
order  in  vfhich  these  catagories  must  fall  within  the  SLAMrP  input  deck. 

Declarations .  Before  any  message  can  be  defined,  all  nodes  within 
the  network  must  be  defined.  Each  node  must  be  described  and  defined 
(using  NODE  cards).  Following  the  node  declarations  cones  the 
declaration  of  all  terminate  nodes  (using  TERM  cards). 

Message  Descriptions.  Following  the  declaration  portion  of  the 
SLAMPP  input  is  the  message  description  area.  A  message  description  nay 
involve  up  to  four  card  types;  MESS,  PROC,  XMIT  and  PATH. 

The  first  card  in  the  description  of  any  message  is  a  MESS  card 
specifying  the  creation  rate  for  this  message  and  the  first  node  along 
the  path.  In  essence,  this  card  specifies  when  and  how  often  this 
message  will  arrive,  and  the  name  of  the  node  where  the  message  will 
first  arrive. 

While  at  a  node,  a  message  may  be  processed  in  some  manner  which 
requires  time.  This  processing  tine  can  be  expressed  by  using  a  PROC 
card.  If  processing  is  not  required,  this  card  may  be  omitted. 

After  all  processing  is  complete,  this  message  is  ready  to  be 
transmitted  to  the  next  node  along  the  path.  This  transmission  may 
require  tine,  and  can  be  defined  using  an  XMIT  card.  If  no  transmission 
time  is  needed,  this  card  may  be  omitted. 

The  next  node  along  this  message's  path  (that  is,  the  node  to  which 
the  message  is  being  transmitted)  is  defined  by  a  PATH  card.  This  PROC, 
PATH  and  XMIT  pattern  is  repeated  until  the  entire  path  of  the  message 
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has  been  described.  The  last  node  of  every  message's  path  must  be  a 
terminate  node. 

Subsequent  messages  are  described  by  inserting  another  MESS  card 
and  following  the  above  instructions  again. 

Balk  Route  Descriptions.  One  of  the  items  specified  on  a  MODE  card 
is  whether  balking  will  occur  or  not.  If  balking  is  specified,  there  is 
a  possibiity  that  every  message  that  uses  this  node  could  be  redirected 
to  the  balk  node.  Therefore,  a  path  must  exist  for  every  message  which 
could  possibly  enter  a  balk  node.  If  a  path  already  exists  for  a 
message  at  the  balk  node  from  the  message's  original  description, 
nothing  more  need  be  done  for  this  message.  However,  if  a  path  does  not 

exist,  one  must  be  supplied  by  means  of  a  BALK  card.  All  balk  route 

descriptions  (if  any  are  present)  follow  the  last  message  description. 

The  BALK  card  specifies  the  balk  node  name  and  the  message  number 
for  which  a  balk  route  is  being  provided.  Following  the  BALK  card, 
PHOC,  XMIT  and  PATH  cards  are  repeated  (just  as  in  a  message 
description)  until  the  entire  balk  path  is  defined.  As  with  a  regular 
message  path,  balk  paths  must  end  at  a  terminate  node. 

Additional  balk  routes  may  be  supplied  by  inserting  another  BALK 

card  and  repeating  the  above  steps. 

End  of  Deck.  The  last  card  of  the  input  deck  must  be  an  END  card. 
No  additional  data  will  be  read  beyond  the  END  card. 

Design  Considerations 

Designing  the  SLAMPP  Network.  Experience  has  shown  that  even  the 
most  simple  network  can  become  confusing  unless  a  systematic  method  is 
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used  to  translate  that  network  into  SLAIiPP  inputs.  In  order  to  minimize 
the  number  of  input  errors,  a  few  simple  guidelines  are  suggested. 

First,  determine  exactly  which  nodes  and  terminate  nodes  will  be 
required  for  the  network.  In  the  case  of  nodes,  also  determine  the 
number  of  servers,  maximum  capacity,  and  balking  or  blocking 
characteristics.  Translate  this  information  into  the  appropriate  NODE 
or  TERM  cards. 

Second,  determine  exactly  which  messages  are  to  be  included.  A 
good  method  to  follow  is  to  "outline"  the  message  directly  into  SLAIIFP 
inputs.  That  is,  code  the  appropriate  MESS  card  for  the  message,  and 
follow  this  with  the  applicable  PROC,  XIIIT  and  PATH  cards  to  describe 
th .  message.  After  the  first  message  is  completely  defined,  begin 
defining  the  second,  then  the  third,  etc.,  until  all  messages  have  been 
defined. 

Third,  define  any  balk  routes  which  may  be  required.  To  do  this, 
examine  each  node,  in  succession,  which  has  a  balk  node  specified  on  its 
NODE  card.  Then,  for  every  message  which  uses  this  node,  ensure  a  route 
exists  for  this  message  from  the  balk  node.  This  route  may  already 
exist  if  the  message  originally  was  routed  using  this  balk  node  as  part 
of  its  path.  For  example,  as  might  occur  if  a  message  went  from  N1  to 
N2  to  N3  to  N4,  and  N1  balked  to  N3.  In  this  case,  if  N1  was  at  maximum 
capacity  the  message  would  skip  HI  and  N2  and  go  directly  to  N3«  If  a 
route  does  not  already  exist  for  this  message,  then  a  route  must  be 
defined  by  using  a  BALK  card.  As  with  a  message,  follow  the  BALK  card 
with  the  necessary  PROC,  XMIT  and  PATH  cards  to  describe  the  route. 

Fourth,  make  sure  that  any  routes  added  in  step  three  that  use  a 
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node  which  can  balk  has  its  own  balk  routes  specified.  Repeat  this  step 
until  all  routes  and  all  necessary  balk  routes  are  specified. 

Lastly,  supply  an  EUD  card  to  the  input  deck. 

Message  Lumbering.  Balk  routes  are  specified  using  the  number  of 
the  message  for  which  a  route  is  being  supplied.  It  is,  therefore, 
important  to  know  how  messages  are  numbered. 

Messages  are  numbered  consecutively  (beginning  at  one)  in  the  order 
they  appear  in  the  input  deck.  Thus,  the  first  message  found  is  message 
number  onej  the  second,  number  two,  etc. 

1/hen  additional  messages  are  being  added  to  the  network,  always  add 
the  new  nessage(s)  after  the  end  of  the  last  message  of  the  network.  In 
this  manner,  any  balk  routes  which  may  have  been  previously  defined  will 
not  need  any  changes.  Otherwise,  the  BALK  cards  will  need  changing  to 
reflect  the  new  message  numbers. 

Balk  Route  Considerations.  Balk  route  design  provides  the  user 
with  several  methods  which  nay  be  used.  To  familiarize  the  user  with 
these  methods,  they  are  described  below. 

first,  no  ball:  route  may  be  necessary  and  therefore,  the  user  need 
not  do  anything.  However,  this  is  only  applicable  to  nodes  which  do  not 
have  a  balk  node  specified. 

Second,  the  balk  route  nay  be  an  entirely  different  route  from  the 
path  defined  for  the  message  (by  the  HESS  card).  The  primary 
consideration  here  is  to  ensure  that  this  balk  route  ends  on  a  terminate 
node. 

Third,  the  balk  node  may  have  been  included  within  the  message’s 
original  path.  In  this  case,  a  route  already  exists  for  this  message 
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fron  the  balk  node,  and  the  user  need  not  (in  fact,  cannot)  provide 
another  route. 

Fourth,  the  balk  route  nay  merge  back  into  the  message  route.  This 
means  that  a  portion  of  the  balk  route  is  entirely  different  fron  the 
message  path;  however,  at  some  point  in  the  balk  route  a  node  defined  in 
the  message  path  is  used,  Fron  this  node  forward,  the  balk  route  is  the 
sane  as  the  nessage  path.  To  illustrate  this,  assume  a  nessage  has  path 
III,  112 ,  H4,  i!3  and  115  (in  that  order).  If  1J2  balks  to  N7,  then  a 
merging  balk  route  night  be  N7,  N8  and  IJ4.  In  this  example,  a  nessage 
'would  balk  fron  IJ2  to  117  and  then  traverse  N8  and  114.  The  remainder  of 
the  path  from  N4  would  be  the  sane  as  the  nessage  path.  In  essence,  the 
balk  route  would  be  N7,  H8,  N4,  N3  and  N5»  Diagranatically ,  this  cor  Id 
be  viewed  as: 
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All  messages  which  arrive  at  a  node  are  required  to  balk  to  the 
sane  balk  node.  Occasionally,  however,  different  balk  nodes  may  be 
desired  for  each  different  nessage.  This  can  be  accomplished  by  using  a 
"dummy"  balk  node  whose  only  function  is  to  redirect  messages  to  their 
appropriate  nodes.  The  recommended  procedure  is  to  define  this  dummy 
balk  node  as  having  a  very  large  capacity  (9999)  and  a  large  number  of 
servers  (9999) •  Since  this  node  does  not  represent  a  real  node  within 
the  network,  following  this  definition  prevents  this  node  fron  becoming 
a.  "bottleneck"  in  the  system  and  affecting  statistics.  Immediately 
following  the  BALK  cards  for  the  messages  to  be  redirected,  insert  a 
PATH  card  to  the  desired  node.  This  causes  the  message  to  balk  to  the 
dummy  node  and  then  be  transmitted  to  the  appropriate  node.  However, 
since  both  balking  and  transmitting  (in  this  case)  use  zero  tine,  the 
net  result  is  that  the  message  goes  directly  to  its  appropriate  node. 
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Appendix  C;  Input  Errors 


The  validity  of  the  SLAM  Pre-Processor  input  is  verified  at  several 
points.  Should  any  errors  be  detected,  an  error  nessage  is  printed  and 
the  SLAM  input  source  code  is  not  created.  Below  is  a  list  of  the  error 
messages  which  may  be  produced,  along  with  an  explaination  and  a 
possible  cause  or  correction. 

CONVERSION  ERRORS  OCCURRED,  A  conversion  error  occurred  trying  to 
read  the  input  file.  The  most  likely  cause  is  failure  to  follow  the 
correct  input  format  for  the  card  type  involved.  Correct  the  format. 

DUPLICATE  PATH  DEFINITION.  An  attempt  was  made  to  define  a  path 
for  a  particular  nessage  using  a  node  already  defined  on  that  message’s 
path.  Frequently  caused  by  trying  to  define  a  balk  path  for  a  nessage 
which  overlaps  the  message's  path. 

END  CARD  EXPECTED.  Additional  input  data  followed  the  end  of  the 
last  balk  route  or,  if  no  balk  routes  are  specified,  the  end  of  the  last 
nessage.  Either  this  data  is  incorrect  (and  should  be  removed),  or  a 
problem  exists  in  the  last  message  or  balk  route  to  be  specified. 

INCOMPLETE  BALK  PATH  FOR  MESSAGE  n  FROM  NODE  name.  The  balk  path 
for  message  number  n  (which  balks  from  node  name)  does  not  end  on  a 
terminate  node.  Either  the  path  is  incorrect  (and  should  be  corrected) 
or  the  balk  route  was  not  supplied  as  required. 

ILLEGAL  BALK  NODE.  The  balk  node  name  specified  was  not  defined  in 
a  NODE  statement.  Either  supply  a  corresponding  NODE  statement,  or 
correct  the  node  name. 

ILLEGAL  BALK  NODE  NAME.  The  balk  node  name  specified  on  the  BALK 
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card  is  incorrect  and  should  be  corrected. 

ILLEGAL  DISTRIBUTION  SPECIFIED.  The  distribution  name  specified  is 
not  valid  in  the  SLAiIPP  (see  Appendix  B).  Correct  to  a  valid  name. 

INVALID  BALK  NODE  (SKIPPING  TO  NEXT  BALK).  The  balk  node  name  is 
incorrect  and  should  be  corrected.  The  reminder  of  this  balk  path  is 
ignored. 

INVALID  CARD  TYPE.  The  card  type  specified  is  not  a  valid  SLAMPP 
card  type  (see  Appendix  B).  Correct  the  card  type  or  remove  from  the 
input  deck. 

INVALID  MESSAGE  NUMBER  (SKIPPING  TO  NEXT  BALK).  The  message  number 
specified  on  the  BALK  card  is  invalid  (either  zero,  negative,  or  greater 
than  the  number  of  messages  input  to  SLAMPP).  Correct  the  number.  The 
remainder  of  this  balk  path  is  ignored. 

MAXIMUM  CAPACITY  MUST  BE  GREATER  THAN  0.  The  maximum  capacity 
specified  for  this  node  was  either  zero  or  negative.  Correct  to  a 
positive  value. 

MESS  CARD  MUST  FOLLOW  TERM  CARDS.  A  card  type  other  than  MESS  was 
found  following  the  last  TERM  card.  The  input  deck  is  out  of  order  (and 
should  be  reordered). 

MESSAGE  MUST  END  ON  A  TERMINATE  NODE.  The  message  path  being 
defined  did  not  end  on  a  terminate  node,  leaving  this  path  incomplete. 
Complete  the  path. 

MISSING  BALK  PATH  CARD.  SKIPPING  TO  NEXT  BALK.  The  path  for  this 
balk  route  did  not  contain  a  PATH  card.  The  remainder  of  this  path  is 
ignored. 

MISSING  PATH  CARD.  SKIPPING  TO  NEXT  MESS.  The  path  for  this 
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nessage  route  did  not  contain  a  PATH  card.  The  remainder  of  this 
nessage  is  ignored. 

NODE  CARDS  ilUST  BE  FIRST.  The  first  card  type  found  was  not  a  NODE 
card.  Inputs  are  out  of  order  and  should  be  reordered. 

NODE  name  IS  NOT  USED  IN  A  PATH.  The  node  name,  which  was  defined 
in  a  NODE  card,  was  not  used  in  any  path.  Either  place  name  in  a  path, 
or  remove  the  corresponding  NODE  card. 

NODE  PREVIOUSLY  DEFINED.  The  node  being  defined  by  this  NODE  card 
has  appeared  previously  on  a  NODE  card.  Remove  one  of  the  NODE  cards. 

NUMBER  OF  SERVERS  MUST  BE  GREATER  THAN  0.  The  number  of  servers 
specified  for  this  node  was  either  zero  or  negative.  Correct  to  a 
positive  value. 

TERM  CARDS  MUST  FOLLOW  NODE  CARDS.  The  first  card  type  found 
following  the  last  NODE  card  was  not  a  TERN  card.  Inputs  are  out  of 
order  and  should  be  reordered. 

TERM  PREVIOUSLY  DEFINED.  The  terminate  node  being  defined  by  this 
TERN  card  has  appeared  previously  on  a  TERM  card.  Remove  one  of  the 
TERM  cards, 

THE  BALK  PATH  FOR  MESSAGE  n  CONTAINS  A  CYCLE  FROM  NODE  name.  The 
balk  route  specified  for  message  number  n  from  node  name  loops  back  upon 
itself.  Correct  the  path  to  remove  the  cycle. 

TOO  MANY  MESSAGES  DEFINED,  The  number  of  messages  input  to  the 
SLAIIPP  exceeds  the  program  capacity.  Either  remove  the  excess  messages, 
or  recompile  the  Pre-Processor  with  an  increased  value  for  NOMSG  (see 
Chapter  III). 

TOO  MANY  NODES  DEFINED  (IGNORED).  The  number  of  nodes  input  to  the 
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SLAI'PP  exceeds  the  program  capacity.  This  node  declaration  is  ignored. 
Cither  remove  the  excess  nodes,  or  recompile  the  Pre-Processor  with  an 
increased  value  for  NONOD  (see  Chapter  III). 

TOO  MANY  TERMS  DEFINED  (IGNORED).  The  number  of  terminate  nodes 
input  to  the  SLAMPP  exceeds  the  progran  capacity.  This  terminate  node 
declaration  is  ignored.  Either  remove  the  excess  terminate  nodes,  or 
recompile  the  Pre-Processor  with  an  increased  value  for  NOTRM  (see 
Chapter  III). 

UNDEFINED  NODE.  The  node  specified  was  not  declared  in  a  NODE  or 
TERM  statement.  Insert  the  corresponding  declaration. 

UNEXPECTED  END-OF-FILE.  JOB  TERMINATED.  The  end  of  the  input  data 
was  encountered  when  SLAMPP  expected  additional  data,  usually  caused  by 
a  missing  END  card  or  previous  errors.  Insert  an  END  card  or  correct 
the  other  errors. 
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Appendix  D;  Interpreting  the  SLAM  Output 


Introduction 

Upon  successful  completion  of  a  network  simulation,  the  user  nust 
be  able  to  interpret  the  SLAM  output.  Summarized  here  is  a  description 
of  the  outputs.  Refer  to  the  sample  SLAM  output  at  the  end  of  this 
appendix  for  examples. 

SLAM  Output 

The  output  of  interest  to  the  user  begins  on  the  page  labelled 
"SLAM  SUMMARY  REPORT."  The  first  item  to  notice  is  the  "Current  Time." 
The  time  shown  is  the  time  the  last  message  left  the  network,  leaving 
the  network  empty. 

Terminate  Modes 

Following  this  is  the  "Statistics  for  Variables  Based  on 
Observations."  Statistics  are  produced  for  each  terminate  node  within 
the  network  and  are  identified  by  terminate  node  name.  The  statistics 
are  based  upon  the  time  interval  between  message  arrivals  at  the 
terminate  node.  The  mean,  standard  deviation,  and  coefficient  of 
variation  of  the  time  between  message  arrivals  are  listed.  Also,  the 
minimum  and  maximum  arrival  intervals  and  the  number  of  nessages  to 
arrive  at  this  terminate  node  are  shown. 

Queues 

File  statistics  are  printed  next.  These  statistics  deal  with  the 
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queues  for  each  of  the  nodes  in  the  network.  The  queue  statistics  are 
listed  in  the  same  order  as  their  NODE  cards  in  the  SLAi-IPP  network.  An 
easier  way,  perhaps,  to  identify  the  node's  name  is  to  look  at  the  next 
section  of  the  SLAM  output  titled  "Resource  Statistics."  The  "Resource 
Number"  for  a  particular  node  name  (listed  under  "Resource  Label”)  is 
the  sane  as  that  node's  "File  Number."  Note  that  the  last  file  number 
listed  is  a  SLA11  work  file  and  should  be  ignored. 

The  statistics  shown  include  the  average  length,  standard  deviation 
and  maximum  length  of  each  queue.  The  average  time  a  nessage  waited  to 
be  processed  at  a  queue  is  also  presented.  Note  that  messages  may  have 
been  lost  at  nodes  which  do  not  have  balking  nor  blocking  specified  if 
the  ma-ximum  length  of  that  node's  queue  is  the  sane  as  that  node's 
maximum  capacity. 

Service  and  Transmission 

The  "Resource  Statistics”  represents  statistics  dealing  with  the 
service  and  transmission  time  at  each  node.  The  first  group  of  data 
represents  node  utilization  while  the  second  group  represents  node 
availability. 

In  the  utilization  group,  "Current  Capacity"  is  the  number  of 
servers  available  at  this  node.  The  "Average  Utilization"  is  the 
average  number  of  servers  to  be  used.  The  maximum  number  of  servers 
used  concurrently  and  the  current  number  of  servers  being  used  (at  end 
of  simulation)  are  also  shoim. 

In  the  available  group,  the  average  number  of  servers  available, 
plus  the  minimum  and  maximum  number  available  are  shown. 
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SLAM 


SUMMARY 


REPORT 


BY  SLAMPP 

RUN  NUMBER  1  OP  1 

CURRENT  TIME  .3235K+04 

STATISTICAL  ARRAYS  CLEARED  AT  TIME  0. 


SIMULATION  PROJECT  SLAM 
DATE  9/19/1982 


♦♦STATISTICS  FOR  VARIABLES  BASED  ON 

OBSERVATION** 

MEAN 

STANDARD 

COEFF.  OF 

M  INIMUM 

MAXIMUM 

NO. OP 

VALUE 

DEVIATION 

VARIATION 

VALUE 

VALUE 

ORS 

EXIT 

INTRVL 

TRM  1 

.  5  63E+0  2 

.  I  58F.  +  03 

.  280E+0I 

.  172E+01 

. 113E+04 

295 

EXIT 

INTRVL 

T  RM  2 

,  3RIE+03 

.  3  56F.+0  3 

.  934E+00 

.  903E+0I 

. 1 1 5E+04 

74 

EXIT 

INTRVL 

T  R'l  3 

.  119E+03 

.  131F.+0  2 

. 110E+0I 

.  938E+01 

. 764E+03 

238 

*  *  F  I  LE 

STATISTICS** 

FILE 

ASSOCIATED 

AVER  ACE 

STANDARD 

MAXIMUM 

CURRENT 

AVERAGE 

NUM  PER 

NODE  TYPE 

LENGTH 

DEVIATION 

LENGTH 

LENGTH 

WAIT  TIME 

1 

AWAIT 

0.000 

0.000 

1 

0 

0.000 

•  2 

AWAIT 

.  001 

.045 

3 

0 

.113 

3 

AWAIT 

2 .991 

10.750 

61 

0 

92.125 

4 

AWAIT 

9.904 

17.473 

50 

0 

1  52 . 550 

5 

AWAIT 

0 . 000 

0.000 

1 

0 

0.000 

A 

AWAIT 

4.399 

12.353 

50 

0 

28.399 

7 

AWAIT 

.181 

l  .249 

10 

0 

6.967 

8 

AWAIT 

9.869 

13.005 

30 

0 

570.047 

9 

AWAIT 

.62  8 

2.909 

15 

0 

3.7  90 

10 

4.118 

3.395 

19 

0 

1  .  162 

♦♦RESOURCE  STATISTICS** 

RESOURCE 

RESOURCE 

CURRENT 

AVERAGE 

STANDARD 

MAXIMUM 

CURRENT 

NUMBER 

LABEL 

CAPACITY 

UTIL 

DEVIATION 

UTIL 

UTIL 

1 

ALFA 

l 

.18 

.  3B1 

1 

0 

2 

RLK  l 

1 

.00 

.0  52 

1 

0 

3 

BLK2 

1 

.10 

.298 

1 

0 

4 

BETA 

1 

.29 

.451 

l 

0 

5 

DLT  A 

5 

.05 

.294 

4 

0 
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6 

P  I 

1 

.46 

.498 

1 

0 

7 

R 110 

1 

.03 

.  179 

1 

0 

8 

7.F.TA 

1 

.  39 

.489 

1 

0 

9 

GAM  A 

2 

.  17 

.481 

2 

0 

RF.SOURCK 

RESOURCE 

CURRENT 

AVF.  RACF. 

M  I  N  IM  ITM 

MAXIMUM 

NUM  BF.R 

LABEL 

AVA  I  I.ARLF 

AVA I  LA RLK 

AVAILABLE 

AVAILABLE 

1 

ALFA 

1 

.  82  4  1 

0 

1 

2 

RLK  1 

1 

.  9973 

0 

1 

3 

BMC  2 

t 

.9016 

0 

1 

4 

RF.TA 

1 

.7149 

0 

l 

5 

Dl.TA 

5 

4.9460 

1 

5 

6 

PI 

1 

.  5389 

0 

1 

7 

R  II  0 

1 

.9668 

0 

1 

8 

ZRTA 

1 

.6066 

0 

1 

9 

GAMA 

2 

1.8349 

0 

2 
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Appendix  C:  Test  and  Evaluation 

In  order  to  check  the  validity  of  the  SLAMPP,  a  test  case  was 
designed  and  evaluated.  This  test  case  was  designed  to  use  at  least 
once  every  capability  of  SLAMPP.  Specifically,  nodes  with  balking, 
nodes  with  blocking  and  nodes  with  neither  were  used.  Each  of  the  nine 
valid  distribution  types  found  in  Appendix  B  was  used  in  each  of  their 
legal  positions,  that  is,  on  the  message  creation  card  (MESS),  process 
card  (PROG)  and  the  transmit  card  (XMIT).  The  default  process  and 
transmit  time  of  zero  was  also  demonstrated.  Since  balking  was 
specified  on  two  nodes,  balk  route  descriptions  were  required  in 
addition  to  regular  route  descriptions. 

This  test  case  was  developed  using  the  design  considerations  found 
in  Appendix  B.  All  of  the  nodes  to  be  included  were  first  determined 
and  translated  into  MODE  and  TERM  cards  (a  listing  of  the  5LAHPP  inputs 
nay  be  found  later  in  this  appendix).  The  messages  to  be  included  were 
determined  and  placed  into  the  SLAMPP  input  deck.  Lastly,  all  balk 
routes  which  were  necessary  were  supplied.  The  message  creations  and 
routings  are  diagramatically  illustrated  on  the  following  pages. 

After  all  SLAMPP  inputs  were  completed,  the  SLAMPP  program  was 
executed  to  produce  the  SLAM  source  code,  a  copy  of  which  is  at  the  end 
of  this  appendix.  This  source  code  was  manually  inspected  to  ensure 
that  the  source  was  an  accurate  representation  of  the  network  to  be 
modeled.  After  acceptance,  the  source  code  was  executed  by  SLAM  to 
verify  that  SLAII  would  indeed  accept  the  code.  The  SLAM  execution 
listing  is  also  included  in  this  appendix. 
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SLAM  PRF-PROCFSSOR 


NO  OF, 
NO  OF. 

no  nr 

N  OPF. 
NO  OF 

no  nr. 
no  nr 

NODF. 
fl  0  !)F, 
TFRM 
TFRM 
T  F  RM 
M  F  S  S 
PROF 
PATH 
XM  IT 
PATH 
PR  OF 
XM  IT 
PATH 
M  F  S  S 
PATH 
PROG 
XM  IT 
PATH 
XM  IT 
PATH 
PROC 
XM  IT 
PATH 
PR  OF 
PATH 
PROF 
XM  IT 
PATH 
MESS 
PROC 
PATH 
XM  IT 
PATH 
M  F  5  S 
I’R  OF 
XM  IT 
PATH 
PATH 
PROC 
XM  IT 
PATH 


SUMMARY  OF  PROGRAM  INPUTS: 


ALFA  SO.O 

1  .  o 

RLKl  0999.0 

1  .  0 

RI.K2  9999.0 

1  .  0 

HFTA  50.0 

1  .  0 

D  LT  A  20.0 

5 . 0 

PI  50.0 

1  .  0 

BLK  1 

RHO  10.0 

1  .  0 

BLOK 

7.  FTA  30.0 

1  .  0 

CAM  A  15.0 

TRM  1 

T  RM  2 

TRM  3 

2.0 

BLK2 

FXPO N  2 . 0 

0 . 0 

0.0 

0 . 0 

50.0 

BF.TA 

TR I AC2 . 0 

7 . 0 

9 . 

!>LT  A 

CONST  1  .  7 

PI 

FXPO NO .  7  5 

H  FTA  3.12 

0.14 

TRM  1 

NPS  SNl . 2 

0,0 

0.0 

20.0 

100.0 

BETA 

D  LT  A 

CAM A  2.17 

CONS  TO . 5 

.95 

PI 

UL0CN1 . 333 

RHO 

F.XPON.  23175 
NPSSN. 103 

2  FTA 

.  R88 

RNORM 2  .  1 

.  4  4 

1 

CAM  A 

C0NST2 . 0 
C0NST1  .  1 

TRM  1 

BETA  2.0 

1  .  0 

0.0 

I  0. 0 

75.0 

RHO 

U  N  F  RM  2  .  I 

PI 

CONS  T6 . 5  5 

TRM  2 

3.6 

CAM  A  6.2 
CONST*).  75 

5  .  1 

0.0 

0.0 

100.0 

PI 

NPSSNO. 223 
CAMA 

ALFA 

CO  NS  T  3  .  1 
RL0CN2  .  7 

TRM  3 

.134 
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MESS 

Rl.OON  9  .  1 

1  .  3 

PROC 

CONSTO. O00\ 

XM  IT 

TRIAG. P 5 

.  88 

PATH 

PI 

PROC 

CONST . 0001 

.88 

XM  IT 

TRI AC . 85 

PATH 

TRM  1 

MESS 

RNORM  4 . 1 

2  .  6 

PATH 

BETA 

PKOC 

NPSSi:  .  66  7 

XM  IT 

NPSPt:  .668 

PATH 

RHO 

XM  IT 

GAMA  .65 

.  2  3 

PATH 

OLTA 

.125 

PROC 

RNOP.M  .  3  82 

XM  IT 

R  LOG  N .54  3 

.32  1 

PATH 

T  RM  3 

MESS 

(INF  RM  .  7  5 

1  .  5 

0.0  150.0  250.0 

.0 

.91 

0.0  500.0  63.0 

0.0  0.0  200.0 


PATH  ZF.TA 

PROC  CO  NT.  T  2  5.0 
XM 1 T  CONST  5.0 
PATH  T R't  2 
MESS  TR  I  AC  2.0 
XM  I T  TR1AC3.00 
PATH  TKM  3 
MF.SS  COKST1.5 
PKOC  1!  N  F  RM  4 . 2 
XM  IT  CONST  1 .62  1 
PATH  PI 
PROC  BETA  .5 
PATH  BETA 
PATH  TRM  1 
BACK  B  L  K  l  1.0 
XM  I  T  CONST. 5 
PATH  RHO 
PROC  N  PS  SMI.  6 
XM  I T  EX POM. 000  2 
PATH  TRM  1 
BALK  RLK1  2.0 
PATH  OLTA 
BALK  BLK2  2.0 
XM  IT  CAM  A  1  .23* 


5  . 

,  0 

10.0 

15.0 

125. 

6  , 

1  I  .0 

0 

.  0 

0.0 

1  .0 

85.0 

6.  5 

.  1 


2.345 


PATH  BETA 

BALK  RLK1  3.0 

PROC  RNORM .45  .21 

XM I T  CONST 2. 6 78 

PATH  BETA 

PATH  OLTA 

PROC  RL0CN1.2  .7654 

PATH  Z ETA 

XMIT  BETA  h.l  3  •  7 

PATH  TRM 2 

BALK  BLKl  4.0 

XM  IT  HNFR’l  .99  2.1 


GAMA 

7.  ETA 

GAMA 

BETA 

GAMA 
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PATH 

BETA 

PATH 

Dl.TA 

PR  OC 

CAM  A  1.1 

XU  IT 

CONST 2  .  3 

TATH 

TRM  3 

RACK 

B  L K 2  4.0 

PATH 

RHO 

PROC 

N  PS  SN .  7 

XM  1  T 

RXPOH. 7 

PATH 

7.F.TA 

PA  Til 

TRM  3 

BALK 

Bl.Kl  5.0 

PROC 

CONS  T . 0000 

XM  IT 

CONST. 000')') 

PATH 

RETA 

PATH 

DLTA 

XM  IT 

lUJORM  4.675 

PATH 

RHO 

XM  I  T 

R  LOCH  .  «99 

PATH 

Z  ETA 

PROC 

UNFRM  .  5  4 

XM  IT 

TRI AC  .  0003 

PATH 

TRM  1 

BALK 

B I.  K  2  7.0 

XM  IT 

R  NORM  6.223 

PATH 

RETA 

PROC 

T  R  I  A  0  3  .  5  6 

XM  IT 

CONST  .  4 

PATH 

DLTA 

PATH 

PI 

XM  IT 

EXPON. 1 

PATH 

7  ETA 

RACK 

RLE  1  7.0 

PATH 

P.HO 

PATH 

GAMA 

BALK 

BI,K  1  9.0 

XM  IT 

CONST. 7 

PATH 

TRM  2 

BALK 

B1.K2  9.0 

PATH 

TRM  3 

BALK 

BLK2  5.0 

PATH 

BETA 

END 

HO  ERRORS  DETECTED 

.  #»  7  6  5  A 


l  .  304 
.808 
.  62 

2.6  15.0 

.  I  62 

4.0  5.0 


0 LAM  SOURCE  WILE 


R  F.  CONSTRUCTED  . 
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1 

GEN, SLAM PP, SLAM , 09/1  9/1 982  ,  1  ,,,  , 

,  ,72; 

2 

LIM,  9,2,500; 

* 

3 

NETWORK ; 

A 

RESOl'R  C  E  /  A  LF  A( 

i  ) ,  1 ; 

5 

RF.SO0UCF/PLK1  ( 

1  )  .  2  ; 

6 

R F. SOUR  CK  /  IU.K2  ( 

1) ,  3; 

7 

R  1’SOllR  GF,/ Hf.TAt 

1  )  ,  6; 

8 

RE.SOIJR  C  F  /  1)  l.T  A  ( 

5  )  ,  5; 

9 

RFSOI'RCE/PI  ( 

i),  6; 

1  0 

r:  FSOCR  CF  /  R  !IO  ( 

1 ) ,  7; 

1  l 

R  F  S  0  VR  G  F.  /  7.  F  T  A  ( 

1 ) ,  8; 

1  2 

RF.SOI'RCF/GAMA( 

2),  9; 

1  3 

CREATE, EX PON( 

2 .00000) , 

0,1,  50; 

1  A 

ASS1 GN , A T R I R ( 2  )* 

i; 

1  5 

ACT, , .BETA ; 

16 

CREATE , MPS  SN( 

3 .20000 ) , 

20,1,  100; 

1  7 

ASSIGN, ATRIB(2  )- 

2; 

1  8 

ACT ,  ,  ,  BETA ; 

19 

CREATE , BETA  ( 

2 . 00000, 

1.00000),  10,1, 

75; 

20 

ASSIGN  ,  ATRIR(2  )* 

3; 

21 

ACT,  ,  ,RI10  ; 

22 

CREATE, GAMA  ( 

6 .20000, 

5.10000),  0,1, 

100; 

23 

ASSIGN, ATRTB(2  )* 

A; 

2  A 

ACT,  ,  ,PI  ; 

25 

CREATE , RLOGN ( 

9. 10000, 

1.30000),  150,1, 

2  50; 

26 

ASSIGN, ATRTR(2)« 

5; 

27 

ACT,  , .CAM  A; 

28 

CREATE , R  NORM ( 

4  .  10000, 

2.60000),  500,1, 

63; 

29 

ASSIGN, ATRIB(2 )« 

6; 

30 

ACT,  ,  ,  ZETA ; 

31 

CREATE , UMFRM ( 

.75000, 

1.50000),  0,1, 

200; 

32 

ASSIGN , ATR1B(2 )» 

7; 

33 

ACT,  ,  .GAMA; 

3  A 

CREATE ,TRIAC ( 

2.00000, 

5.00000,  10.00000) 

1 » 

35  ASSIGN, ATRIB(2)»  8; 

36  ACT,  ,  .BETA  ; 

37  CREATE,  1.50000,  1  ,  1  ,  85; 

38  ASSIGN, ATRIB(2 )«  8; 

39  ACT,  , , C AM  A ; 

AO  ALFA  AW  A I T (  1/  50), ALFA; 

A  1  COON, 1  ; 

A  2  ACT, ,ATRIR( 2 ) .EQ.  A.L101; 

A3  L 1 0 1  COON; 

AA  ACT,  3.10000; 

A  5  COON; 

A  A  ACT , R  LOG  N (  2.70000,  .  33AOO); 

A  7  FRF,  F, ALFA; 

A  8  ACT,  ,  ,  TRM  3  ; 

A  9  BLKl  AW  A  I  T  (  2/999.9)  ,  BLK1  ; 


50 

GOON,  1  ; 

51 

ACT,  , ATR I B ( 2 )  .  F  Q  . 

1 ,L102; 

5  2 

ACT,  .ATRIP.  (2  )  .F.Q. 

2  ,  L 1  03  ; 

53 

ACT,  ,  ATR  I  R  (  2  )  .  F.Q  . 

3  ,  L  l  0  4  ; 

15,1, 


80 


5  4 

ACT,  .ATRTIK  2  )  .FQ.  4 , LI  05; 

55 

ACT,  ,  ATR  18(2  )  .F-Q.  5.L106; 

56 

ACT,  ,ATRIB(2).EQ.  7.L107; 

57 

ACT  ,  ,  ATR  I  (1  (  2  )  .  EQ  .  9.L108; 

58 

LI  02 

COON  ; 

50 

ACT,  .50000; 

60 

FRFF. ,  BLK  1  ; 

61 

ACT,,,  U  110  ; 

62 

1.1  03 

COO'J  ; 

6  3 

FRFF  ,  RI.K  1  ; 

6  4 

ACT ,  ,  , DLTA ; 

65 

1. 104 

COON  ; 

66 

ACT , RNORM (  .45000,  .21000); 

67 

COON  ; 

68 

ACT,  2.67800; 

60 

FRFF, BLK  1  ; 

70 

ACT, , .BETA; 

7  1 

L  1  0  5 

C  0  0  N  ; 

7  2 

ACT,  U  M  F  IlM  (  .99000,  2.10000); 

7  3 

FRFF , BLK 1 ; 

74 

ACT,  ,  ,  1!  FTA  ; 

75 

L  1  06 

COON; 

76 

ACT,  .00090; 

77 

COON  ; 

78 

ACT,  .00099; 

70 

FRFF, BLK  l  ; 

80 

ACT ,  ,  ,  8 FTA  ; 

81 

LI  07 

COON; 

82 

FRFF , BLK  1  ; 

83 

ACT  ,  ,  ,R!10  ; 

84 

L  1  08 

COON  ; 

85 

ACT,  .70000; 

86 

FRFF, BLK1 ; 

87 

ACT,  ,  , T RM 2 ; 

88 

BLK2 

AW  A  I T (  3/9999  ), BLK2; 

80 

COON , 1 ; 

90 

ACT,  ,  A  T  R  I  8  (  2  )  .  F.Q  .  2,  LI  09; 

91 

ACT, ,ATRIB(2).EQ.  4,L110; 

92 

ACT,  ,  ATR1 8(2  )  .FQ.  5, LI  1 1 ; 

03 

ACT ,  ,  ATR 1 8 ( 2 ) . EQ.  7 , LI  1 2 ; 

04 

ACT ,  , A T R I 8 ( 2 )  .Fq.  9 , LI  1 3 ; 

95 

LI  09 

COON ; 

96 

ACT , CAM  A  (  1  .  23400,  2.34500) 

97 

FRFF, RLK 2; 

08 

ACT,  ,  ,  8FTA ; 

09 

LI  10 

C  n  o  N  ; 

1  on 

FRIF.R1.K2; 

101 

ACT, , ,  RNO  ; 

1  02 

LI  1  1 

COON  ; 

103 

FRFF , BLK 2 ; 

104 

ACT,  ,  ,  8  F  T  A  ; 

105 

L  1  1  2 

COON  ; 

106 

ACT, RNORM (  5.22300,  .16200) 

107 

FRFF  ,  8I.K  2  ; 
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108 

109  Ll 
1  10 
111 

112  RF 

113 
1  14 
1  1  5 
1  lf> 

1  1  7 
118 
U'’ 

120 
121 
1  22 

123  I. 

124 
1  2  S 
12  0 

127 

1 28  1 
1  29 

1  30 
131  1 

1  32 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 
144 
14  6 

147 

148 

149 
1  50 
111 
1  52 
1  53 
l  54 
1  55 

156 

157 
1  50 
1  59 
l  60 
161 


Ll  13 


RF.TA 


Ll  1  4 


ATT-,  ,  ,  RF.TA  ; 

GOON ; 

FRFF ,  RLK2  ; 

ACT...TRM3; 

AWAIT (  4/  50), BETA 

oooN.i; 

ACT, tATRin(2).EQ.  » 

ACT,  ,ATRIR( 2  )  .LQ.  2 

AG  r  ,  ,  A  T i<  T  8  (  2  )  •  KQ  .  3 
AGT, ,ATUin(2).EQ.  4 

ACT,  ,  A  T  R  I  R  (  2  )  .  F  0  .  ■■ 

ACT,  ,ATUir>(2  )  .no.  f 

ACT,  , AT  11  18(2)  •  F.Q  • 

ACT,  ,ATRI8(  2  )  '[ 

ACT,  ,ATKlB(2) -F.Q. 
COON; 

'  r\  r\  f\  f\ 


,  L 1  1  4  ; 
,1.115; 

, Ll 16; 
,L1 17; 
i.i.iiR; 

. ,  L 1  1 9  ; 
1.L120; 
1,1.1  21 ; 
1,1.122; 


Ll  15 


L  l  1  6 


Ll  17 


Ll  1  8 


Ll  19 


L  V  20 


1.121 


OLTA 


ACT,T«IAC(  2.0000C 

CO  on  ; 

F  R  l:.  E  ,  8  K  T  A  ; 

ACT,  ,  ,  01. TA  ; 

COON  ; 

FRFF,  RF.TA  ; 

ACT, , , OLTA ; 

COON  ; 

FRFF, RFTA ; 

ACT,  ,  ,  OLTA ; 

GOON ; 

F R  F F , RFTA  ; 

ACT,  .  ,01-TA; 

GOON; 

F  R  F  R  ,  R  F  T  A  ; 

ACT,  ,  ,  OLTA ; 

G  0  O  N  * 

ACT , N  P  S  3  N (  .66700  ); 

* 

ACT,NPSSN(  .66800) 

FRFF , RFTA ; 

ACT,  ,  ,  RHO  ; 

coo*: ; 

ACT, TR I AG(  3.560 
COON  ; 

ACT,  .40000; 

F  H  F  F. ,  RF  T  A  ; 

ACT , , , OLTA ; 

GOON  ; 

ACT  ,  TR  l  AC.  (  3,00( 

F  R  F  F  ,  R  F.  T  A  ; 

ACT,  ,  ,  T  RM  3  ; 

?  coon; 

FR : F , RFTA ; 

ACT,  ,  ,  T  Ri  l  1  i 
A  aW  A 1 T (  5/  20), 

COON , 1 ; 

ACT,  , A  T  R 1 R ( ? ) *FQ. 


2 . 00000 ,  7.00000, 


3.56000,  4.00000, 


3,00000,  6.00000, 


20)  ,  OLTM 


.1.123; 


9.00000); 


5.00000); 


1 1 ,00000) 
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162 

ACT,  ,  ATR  I  B(  2  )  .  F.Q  .  2  ,  Ll  2  4  ; 

161 

ACT,  ,ATRIB(2  )  .EQ.  3,L125; 

164 

ACT,  ,ATRIB(2).F.Q.  4.L126; 

165 

ACT,  , ATR1 R( 2  )  . EQ.  5.L127; 

166 

ACT, ,ATRIB(2).EQ.  6.L128; 

167 

ACT  ,  ,  ATR  I  B  (  2  )  .  F.Q  .  7.L129; 

168 

Ll  2  3 

coon  ; 

1  69 

ACT,  1.70000; 

1  70 

FP.F.F  ,  Pl.T  A  ; 

1  7  l 

ACT,,, PI  ; 

1  72 

Ll  24 

C.  0  0  N  ; 

1  71 

ACT, CAM  A  (  2.1  7000,  .  95000); 

174 

COON  ; 

1  75 

ACT,  .50000; 

176 

FR  F.F  ,  Dl.T  A  ; 

177 

ACT,  ,  ,  PI  ; 

l  7R 

1. 1  2  5 

0  0  0  N  ; 

1  79 

ACT  ,  P.  LOO  N  (  1.20000,  .  76540); 

1  8  0 

COON  ; 

l  8  l 

F  i!  F.  ,  Ol.T  A  ; 

1  82 

ACT  ,  ,  ,  7 r. T A  ; 

183 

LI  26 

COON  ; 

1  84 

ACT , CAM  A  (  1.10000,  .87654  ); 

185 

COON  ; 

186 

ACT,  2.30000; 

187 

FirF.F  ,  Pl.T  A  ; 

1  88 

ACT,  ,  ,TRM 1; 

1  89 

1.1  2  7 

COON;  , 

1  9  0 

ACT,UNOK!1  (  4.67500,  1.30400); 

191 

F  K  F  K  ,  D  LT  A  ; 

192 

ACT,  ,  ,KHO  ; 

193 

LI  28 

COON  ; 

1  94 

ACT , R  NORM (  .38200,  .12500); 

195 

COON; 

196 

ACT  ,  P.LOCN  (  .  54300,  .  32100); 

197 

FREE  ,  Pl.T  A  ; 

198 

ACT,  ,  ,  T  8"!  3  ; 

199 

LI  29 

COON  ; 

200 

FRF.F. ,  Dl.T  A  ; 

201 

ACT,  ,  ,PI  ; 

202 

P  1 

AWAIT (  6/  50), PI  , BALK( BLK 1 ) ; 

203 

COON , 1 ; 

2  04 

ACT,  , ATR I R( 2  )  .FQ.  1  , Ll  30- 

205 

ACT  ,  ,  ATRl  8  (  2  )  .  EO  .  2  ,  L 1  3 1 

206 

ACT,  ,ATR1B( 2 ) . KO.  3,L13  2 

207 

ACT,  ,ATR1B(2  ) -EO.  4,1.113 

208 

ACT,  ,  ATR  18(2  )  .EQ.  5,1.1  34 

209 

ACT, ,ATRIB(2).FQ.  7,L135 

2  1  0 

ACT,  ,  ATR  IlK  2  )  .  EQ.  9  ,  Ll  16 

2  l  1 

Ll  30 

C  n  o  r: ; 

2  1  2 

ACT, F  X PO  N (  .7  5000); 

21  3 

COON  ; 

214 

ACT,  Bl-.TA  (  3.12000,  6. 

14000); 

2  l  5 

FUFF, PI  ; 

83 


I  I  * 


T  KM  1  ; 


216 

2  17  1. 1  31 

218 
2  1  9 
220 

221  L  1  3  2 

222 
223 
2  24 

22  5  1.133 

2  26 

227 

228 

229 

230 

231  1,134 
2  32 

233 

234 

235 

236 

2  37  L l 3  5 
238 
2  39 
2  40 

2  41  1. 1  3  6 

242 

243 

244 

245 

24  6  R  HO 

247 

748 

249 

250 

251 
2  52 

253 

254 

2  55  L 1 3  7 

256 

257 
2  58 

259 

260 

261  L 1 38 

262 

263 

264 

265 
2  66 

267  L l 39 

268 
269 


AC  T 


COf'N  ; 

ACT ,  P  I.OON  (  1.33300,  .88800); 

F  K  K  R  ,  P  1  I 
ACT ,  ,  ,KI!0  ; 

COON  ; 

ACT,  6.54000; 

F  I!  r  !•: , 11 1  ; 

ACT ,  ,  ,TK 1  ?  ; 

COO  N  ; 

ACT,  9.75000; 

CO  ON  ; 

ACT , NPS  SN (  .22  300); 

F  R  K  F. ,  P 1  ; 

ACT ,  ,  , CAM  A ; 

COON  ; 

act,  . 000 1 0 ; 

C  O  0  N  ; 

ACT,TRIAC(  .85000,  .88000, 

F  H  F.  F  ,  P  I 
ACT, , ,TRM  l ; 

COON; 

ACT  ,  F.  X  PO  N  (  .  10000); 

F  R  I)  F. ,  P  I  ; 

ACT,  ,  ,  7.  R  T  A  ; 

COON; 

ACT , 8  R  T  A  (  .50000,  .10000); 

COON  ; 

F ;?  F.  r. ,  p  I  ; 

ACT,  , , 8 F T A  ; 

A  W  A  I T (  7/  10) , R  H  0  .BLOCK; 

COON,  1  ; 

ACT,  ,ATRIB(2  ).EQ.  1 ,L137; 

ACT,  ,  A  T  K  I  IS  (  2  )  .  E  Q  .  2,1,138; 

ACT,  ,  A  T  R  T  B  (  2  )  .  F.Q  .  3, LI  39; 

ACT,  ,ATR1B(2  )  .EQ.  4.L140; 

ACT, ,ATR IB(2 ) .EQ.  5.L141; 

ACT, ,ATR1B(2).EQ.  6.L142; 

ACT,  ,ATR1B(2).F,Q.  7,1.143; 

COON  ; 

ACT , N  PS  S  N(  1.60000); 

COON  ; 

ACT, EXPO  Nr  .00020); 

FRF.F..RIIO  ; 

ACT,  ,  ,  T  RM  l  ; 

COON  ; 

ACT  ,  F.  XPON  (  .  2  317  5  ); 

GOON  ; 

ACT , N  PS  SN (  .  10300); 

FRF.  R.R1I0  ; 

ACT,  ,  ,  Z K T A ; 

COO  N; 

ACT,  IINFKMC 
COON  ; 


2 . 10000 


3 . 60000) 


LI  4 0 


[,143 


7,  F,  T  A 


1144 


L146 


LIAR 


LI  A9 


FUFF, KUO  ; 

AFT,,, FI  ; 

COON  ; 

ACT, NPS  SN(  .70 

COOK; 

act,fypon(  .70 

FREE  ,ni!0  ; 

ACT,  ,  ,  7.  FT  A  *, 
goon ; 

ACT.KI.OC'K  .99 

FREE,  R 110  ; 

ACT,  ,  ,  7.  F.  T  A  ; 

CO  ON  ; 

ACT, CAM  A  (  .45 

FRF.F,  R HO  ; 

ACT, , , OLTA ; 

COON  ; 

FREE,  R  110  ; 

ACT,  ,  ,  C  A  M  A  ; 

AWAIT(  ft/  30), 

COON  ,  1  ; 

ACT  ,  ,  ATR  I  11  (  2  )  .  EQ  . 
ACT  ,  ,  ATR  1 1*.  (  2  )  .EQ. 
ACT,  ,  ATR  Ill  (7  )  .F.Q. 
ACT,  ,  ATR  I  11  (2  )  .  F.  Q  . 
ACT,  ,  ATR  1  1>.(  2  )  .EQ. 
ACT,  .ATIU1U2  )  .EQ. 
COON; 

ACT, R NORM (  2.  K 

COON; 

FREE,  7.ETA  ; 

ACT,  ,  , CAM  A ; 

COON; 

ACT, n  F  T  A  (  6.1C 

FREE  ,  7.KTA  ; 

ACT,  ,  , TRM 2 ; 

COON  ; 

FREE,  7.  ETA  ; 

ACT,  ,  ,  TRM 3 ; 

COON  ; 

ACT,  I’NFK.M  (  .  5 1 

COON  ; 

ACT  ,  T U  I  A  C  (  .01 

F  R  E  F  ,  7.  K  TA  ; 

ACT,  ,  ,  TRM  1  ; 

COO M  ; 

FREE  ,  7,  ETA  ; 

ACT,  ,  ,  K  E  T  A ; 

COON; 

ACT,  23.00000; 
COON  ; 

ACT,  3.00000; 
FREE , ZETA ; 

ACT,  ,  ,TR!1  2  ; 


70000)  ; 
700 00  )  ; 


99900, 


.43000, 


.  R  fiROO  )  ; 


.23000); 


30 ) , ZETA ; 


2,1,144; 

3  ,  L 1  4  5  ; 

4  ,  L  1  4  6  ; 

5  ,  L 1  4  7  ; 
6,1,148; 
7  ,  L 1  4  9  ; 


2. 10000, 


. 44000)  ; 


6.10000,  3.70000); 


. 54000, 


.62000); 


00030,  2.50000,  15.00000) 


324 

CAM  A 

AUATT(  9/  1  5  )  ,  CAM  A  ,  R  ALK  (  BI.K2  )  ; 

32  5 

COON, 1 ; 

326 

ACT,  , ATT  I R( 2 ) . HQ.  2 , Ll  50; 

32  7 

ACT,  ,ATR1 B(2 ) .KO.  4,1.151; 

3  2  8 

ACT ,  ,  ATR1 8 ( 2 )  . TO .  5.L152; 

329 

ACT  ,  ,  A  TUI  B  (  2  )  .  EQ  .  7  ,  1,1  53  ; 

330 

ACT, ,ATRJ»(2 ) .  EQ.  9.L154; 

331 

1.1  50 

coo n  ; 

332 

AC  r  ,  2.00  000; 

333 

COON  ; 

334 

ACT,  1.10000; 

336 

1"  R  V.  F.  ,  CAM  A  ; 

336 

ACT ,  ,  , TRM  1  ; 

337 

LI  51 

COON  ; 

3  3  8 

FREE  , CAM  A; 

339 

ACT ,  ,  , ALF  A  ; 

340 

LI  52 

COON  ; 

341 

ACT,  .00010; 

342 

COON  ; 

34  3 

ACT , TR I  AC (  .85000,  .88000, 

344 

T  R  F.  F. ,  CAM  A  ; 

34  5 

ACT,,,ri  ; 

346 

LI  53 

C  0  0  H  ; 

347 

FRF.F. ,  CAM  A  ; 

348 

ACT,  ,  ,  7.F.TA  ; 

349 

LI  54 

COON  ; 

3  50 

ACT  ,  l.'NF  R!l  (  4.20000,  6.50000) 

351 

COON  ; 

352 

ACT,  1.62100; 

353 

FRF.F. ,  C  AM  A  ; 

354 

ACT,,,  PI  ; 

355 

TRM  1 

C01.CT,  INT(  1  )  .EXIT  INTRVL  TRM  1  ; 

356 

TERM  ; 

357 

TRM  2 

COLC  T  ,  I  NT  (  I  )  ,  F.  X  IT  INTRVL  TRM  2; 

358 

TF.RM  ; 

3  69 

TRM  3 

COLCT, TNT(1 ) .EXIT  INTRVL  TRM  3 ; 

360 

TERM  ; 

3  61 

E  N  n  ; 

362 

I  NIT  , 

9; 

363 

FIN  ; 

.90000) 
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SLAM 


ECHO 


REPORT 


SIMULATION  PROJECT  SLAM 
DATE  9/19/1 982 

SLAM  VERSION  JAN  79 


BY  SLAMPP 

RUN  NUMBER  1  OF  1 


GENERAL  OPTIONS 


PRINT  INPUT  STATEMENTS  (ILIST): 

PRINT  ECHO  REPORT  (  I  EC  110  ) 

EXECUTE  SIMULATIONS  (IXQT): 

PRINT  INTERMEDIATE  RESULTS  HEADING  (IPIRH): 
PRINT  SUMMARY  REPORT  (ISMRY): 


YES 

YES 

YES 

YES 

YES 


LIMITS  OH  FILES 


MAXIMUM  NUMBER  OF 
MAXIMUM  NUMBER  OF 
MAXIMUM  NUMBER  OF 


USER  FILES  (MFILS): 

USER  ATTRIBUTES  (MATR ) : 
CONCURRENT  ENTRIES  (MNTRY): 


9 

2 

500 


FILE  SUMMARY 

FILE 

NUMBER 

1 

2 

3 

A 

5 

7 

8 

9 


INITIAL  RANKING 

ENTRIES  CRITERION 


0 

0 

0 

0 

0 

0 

0 

0 

0 


FIFO 

FIFO 

FIFO 

FIFO 

FIFO 

FIFO 

FIFO 

FIFO 

FIFO 


STATISTICS  BASED  ON  OBSERVATIONS 


COLCT  COLLECTION  IDENTIFIER 
NUMBER  MODE 


HISTOGRAM  SPECIFICATIONS 
NCEL  BLOW  HW ID 


1  NETWORK 

2  NETWORK 

3  NETWORK 


EXIT  INTRVL  T RM 1 
EXIT  INTRVL  T RM 2 
EXIT  INTRVL  TRM  3 
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RANDOM  NUMBER  STREAMS 


STREAM  SEED  R E ! N I T I A M Z AT I ON 

NUMBER  VALUE  OF  STREAM 


1 

124397 P 2291 0957 

NO 

2 

341.71  33363389 

NO 

3 

7  0  6  5  4  4  6  R  6 1  4  3  R 1 

NO 

4 

I  «  4  l  1 0  ?  3  2  1  3  6  8  1  3 

NO 

5 

2  BOOT  3n2  993  SHHS 

NO 

6 

14795951 2963949 

NO 

7 

125894583854829 

NO 

8 

150477/75663725 

NO 

9 

227874746727917 

NO 

10 

821 74077046221 

NO 

INITIALIZATION  OPTIONS 


BFCINHIMG  TIME  OF  SIMULATION  (TTBEG): 
ENDINC  TIME  OF  SIMULATION  (TTFIN): 
STATISTICAL  ARRAYS  CLEARED  (JJCLR): 
VARIABLES  INITIALIZED  (JJVAR): 

FILES  INITIALIZED  (  .1  J  F  I  L  )  : 


0  . 

. 1000E+2 l 

YES 

YES 

YES 


NSKT/QSET  STORAGE.  ALLOCATION 


DIMENSION  OF  NSET/QSET  (NNSF.T):  7000 
WORDS  ALLOCATED  TO  FILING  SYSTEM:  3000 
WORDS  ALLOC  ATED  TO  INDEXED  LIST  TAGS:  0 
WORDS  ALLOCATED  TO  NETWORK:  3042 
WORDS  AVAILABLE  FOR  PLOT  S  /  TAB  LF.  S  :  958 


INPUT  ERRORS  DETECTED:  0 

EXECUTION  WILL  BE  ATTEMPTED 
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S  I,  A  M 


SUMMARY 


REPORT 


SIMULATION  PROJECT  SLAM  BY  SLAMPP 

DATE  9/19/1982  RUN  NUMBER  1  OF  1 


CURRENT  TIME  .3235E404 

STATISTICAL  ARRAYS  CLEARED  AT  TIME  0. 


••STATISTICS  FOR  VARIABLES  BASED  ON  OBSERVATION** 


M  E  A  N 

STANDARD 

COEFF.  OF 

M  I  N IM  UM 

MAXIMUM 

NO. OF 

VALUE 

DEVIATION 

VARIATION 

VALUE 

VALUE 

OBS 

EXIT 

I NTR VL 

T  RM  1 

.  563E+02 

.  1  58E+0  3 

.  2  80E4-0  1 

.  1  7  2E4-0  1 

.  113E4-04 

295 

EXIT 

I NTRVL 

TRM  2 

.  3  8  1  E  4  0  3 

.  3  56F.4-0  3 

.  93  4E4-00 

.  903E4-0I 

.  1  15E4-04 

7  A 

EXIT 

I NTR VL 

T  RM  3 

.  1  1  9  E  4-0  3 

.  131F.4-0  3 

.  1  I0E401 

.  938E4-0I 

.  764E4-03 

238 

*  *  F I LE  STATISTICS** 


FILE 

ASSOCIATED 

AVF.RACE 

STANDARD 

MAXIMUM 

CURRENT 

AVERAGE 

N  UM  B  E  R 

NODE  TYPE 

LENCTII 

DEVIATION 

LENGTH 

LENGTH 

WAIT  TIME 

1 

AWAIT 

0.000 

0.000 

I 

0 

0.000 

'  2 

AWAIT 

.  001 

.04  5 

3 

0 

.113 

3 

AW  A  T  T 

2.991 

10.750 

61 

0 

92 .  125 

4 

AWAIT 

9.904 

17.473 

50 

0 

1 52 .550 

5 

AWAIT 

0 . 000 

0.000 

1 

0 

0.000 

6 

AWAIT 

4.399 

12.  353 

50 

0 

28.399 

7 

AWAIT 

.  181 

1.249 

10 

0 

6.967 

8 

AWAIT 

9.869 

13.005 

30 

0 

570.047 

9 

AWAIT 

.628 

2 . 909 

1  5 

0 

3.7  90 

10 

4.118 

3.395 

19 

0 

1 .162 

<1 

••RESOURCE  STATISTICS** 

RESOURCE 

RESOURCE 

CURRENT 

AVE  RACE 

STANDARD 

MAXIMUM 

CURRENT 

NUM  BE  R 

LABEL 

CAPACITY 

UTIL 

DEVIATION 

UTIL 

UTIL 

l 

ALFA 

l 

.18 

.381 

l 

0 

2 

BLK  1 

1 

.00 

.052 

1 

0 

3 

BLK  2 

1 

.10 

.298 

1 

0 

4 

BETA 

1 

.29 

.451 

l 

0 

5 

DLT  A 

5 

.05 

.294 

4 

0 
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q|| 

i&g  IM  H2-5 

|^o 

k  E*  m 

1  I* 

IJb  iJIIMJIHL 

I.**  y£ 

i-LL 

|  - 

III  1.8 

III1-25 

MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BUACAU  Of  STANOAAOS  -  '»«3  "  A 


6  PI  1 

7  R  HO  1 

8  Z  ETA  1 

9  GAMA  2 


46 

.498 

1 

0 

03 

.179 

1 

0 

39 

.489 

l 

0 

17 

.481 

2 

0 

RE  SOURCE 

RESOURCE 

CURRENT 

NUM  HER 

LA  RE  I. 

AVA 1  LA RLE 

1 

ALE  A 

1 

2 

RLE,  1 

1 

3 

BLK  2 

l 

4 

R  ETA 

l 

5 

Dl.T  A 

5 

6 

PI 

1 

7 

R  II 0 

1 

8 

ZKTA 

1 

9 

CAM  A 

? 

AVERAGE 

M  I  N  IM  UM 

MAXIMUM 

AVA l LA  RLE 

available 

AVAILABLE 

.  82  41 

0 

1 

.  9973 

0 

1 

.9016 

0 

l 

.7149 

0 

l 

4.9460 

1 

5 

.  5389 

0 

1 

.  9668 

0 

1 

.  6066 

0 

1 

1 . 8349 

0 

2 
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